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INTRODUCTION 


In this self-instruction text you will learn the fundamentals for using 
Digital's Business Oriented Language - DIBOL. This compiler 
Tanguage is used to describe data-processing problems for the DEC 
DATASYSTEM 300 series computers. DIBOL is an integral part of the 
Series 300 Commercial Operating System - COS 300. 


When you complete this course you should be able to program work- 
able solutions to real problems in Billing, Accounts Receivable, 

Sales Analysis, Inventory Applications, and others. Given an appli- 
cation problem, you should be able to use DIBOL to develop a source 
computer program that can be compiled and run on the COS 300 
System. 


However, there are elements of the COS 300 software system that are 
not taught in this manual. You will find these in the COS 300 System 
Reference Manual (Order Number DEC-08-OCOSA-E-D). 


This course presents sets of instructions, questions and answers in 
frames. Each question is followed by the correct answer. Foid-out 
pages are provided so that you may refer to examples of flowcharting, 
coding, problems, etc., as you progress. Additional problems are 
supplied to reinforce your knowledge through application. A summary 
is provided at the end of each chapter. A Glossary of terms is in- 
cluded for quick reference. Although this programmed instruction 
will give you a working knowledge of DIBOL, you should try to 
compile and run your first programs where computer facilities exist. 


An interpretation of course completeness is based on our definition of 
a programmer - a person who prepares, or is responsible for, problem- 
solving procedures. The information presented in this text was pre- 
pared for these individuals, in a small to medium sized business 
environment, who of necessity may have to wear many "hats". 


The programmer's hat cliche has significance for the student in that 
it suggests the proper way of approaching the subject information. 
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The programmer must be a specialist in more than one area. In his 
preparations he should assume the roles of a job and program analyst, 
a computer operator, and most important, the end user of the com- 
puter application. 


The student should allow himself enough time to complete the course 
before attempting applications programming. In the final analysis, 
time and money will be saved by proper utilization of the computer. 


DEVELOPMENTS IN SMALL BUSINESS DATA PROCESSING 


Electronic Data Processing (EDP) technology has advanced to the 
point where most businessmen can realistically consider automating 
repetitious paper work. Aft present, thousands of small businesses 
are inundated with paperwork, payroll, inventory control, accounts 
receivable processing, and numerous other tasks that can be rapidly 
and accurately processed by computer. 


Until recently, these businesses had no alternative to the service 
bureau since the cost of in-house computer configurations were pro- 
hibitively expensive. The total system power of a computer which 
wouid have cost a haif-miilion doiiars a decade ago can now be 
encompassed into a mini-computer desk configuration (DEC 


DATASYSTEM 300) for less than $30,000. 


The technological milestones beginning in the 1960's were the shifts 
from vacuum tubes to transistors, then to Integrated Circuits (IC's), 
and most recently to Medium-Scale Integration (MSI). The size of a 
computer's Central Processor (CP) was directly related to these 
hardware advances. 


The dramatic reduction in size and cost-per-circuit for the computer 
hardware is only part of the array of benefits. A new technology has 
emerged and matured as a direct result of millions of dollars worth of 
R & D resources expended by large corporations. This transition has 
been from tabulating equipment (unit record punched card tabulators - 
dedicated to wired single program operation) to the outstanding 
modularity and resultant flexibility of computer software. 


Software is defined as computer control programs which are stored 
and/or loaded into the computer's memory banks. The program's 
instructions are automatically scanned by the computer's central pro- 
cessor to control job operation. 


Not only has software emerged as an integral part of a computer con- 
figuration, but its usage has formulated specialized programs and 
procedures. These include some of the following: 


Implementation Language - programming language by which 


business data processing procedures may be precisely described 
in a standard form. 


System Monitor - a control program to supervise and verify the 
correct operation of all running programs including operator/ 
system interaction. 


Utility Programs - standard service or housekeeping programs 
used to: sort and merge data, interchange programs and files 
which reside on various peripheral devices, update and build 
data files, edit and trace data, etc. 


Combining the above, we have an operating system — an organized 
collection of techniques and procedures for operating a computer. 

For the DEC DATASYSTEM, they are part of a software package called 
the Commercial Operating System (COS). These job application 
software tools no longer require vast amounts of costly storage, nor 
does access to them run into minutes as it did with prior computer 
generations... 


Using the hardware and standardized OS programs offered by Digital 
Equipment Corporation (DEC), the user can customize an application 
system by writing programs to conform to the way his company is con- 
ducting its business. He must carefully analyze his company's EDP 
requirements as a prerequisite to his system design. This methodical 
planning will contribute to a more rapid new system startup. 


Initially his programs may be satisfactory, but they soon may become 
obsolete as procedures change to better utilize the computer. The 


in-house programmer should start slowly, developing the most con- 
venient and practical programs first. He should also be prepared to 
continually modify programs and allow for new programs and system 
features. In this way he will be more responsive to the requirements 
of management. 


The programmer should also make extensive use of the "conversa- 
tional mode" type of program. Data should be entered online using 
the Cathode Ray Tube (CRT) display terminal (video screen with key- 
board). The program should ask the operator for the required data, 
and then accept the answer. As much as possible, answer parameters 
should be built into the program. As an example, if the question 
from the computer is "number ordered?", an answer larger than the 
current stock level, or an answer that depletes stock below the 
reorder point, should produce a warning message in addition to the 
normal accounting within the program. Additionally, the program 
could produce an instant-echo for confirmation of back-order 
adjustments. 


Since the interactive terminal allows the operator to check and make 
corrections to the data before it is transferred to the DECtape or 
disk, data can be visually validated. Obviously, conversational 
mode programs allow less-experienced operators to produce accurate 
records. A good system design will allow the existing clerical staff, 
under the guidance of the programmer (via displayed messages and 
operating procedures), to operate the computer. An accounts re- 
ceivable clerk should continue doing receivables, while the person 
disbursing checks should continue doing that job. Employees can use 
the computer as a sophisticated tool to make each job easier and 
more pleasant. 


The imaginative programmer can help job operation by preparing both 
batch and interactive programs and procedures. Batch processing is a 
sequential job stream procedure that uses an accumulation of related 
job units. It allows both data items and programs to be collected 
into groups for faster processing. Batch processing can be used to 
advantage for those cyclical or repetitious jobs. This technique will 
save the operator time while making maximum use of the computer. 
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COMMERCIAL DATA PROCESSING TERMINOLOGY 


In order to describe and build better business systems, you should be 
familiar with the following applications terminology: 


AUDIT - An operation or check designed to ascertain the validity of 
data. The validity of data is verified through the use of 
check sums, hash totals, maximums, minimums, redundancies, 
cross totals, and various other methods. The AUDIT is used 
to insure: that accounting records will not be destroyed, 
that the computer system will not incorrectly read or pro- 
cess data, or that someone will not manipulate data to 
produce wrong results. The report generated from an audit 
is called the AUDIT TRAIL, e.g., for a payroll application 
an AUDIT TRAIL for the validity of input data would contain 
error conditions, such as time records for terminated em- 
ployees, employees with no time records, etc. 


BACKUP = Pertains to equipment or procedures that are available for 
use in the event of systems failure and destroyed data files 
on tape or disk. The provisions for adequate BACKUP 
facilities and data files are an important factor in the 
design of all data processing systems, e.g., copy of a disk 
file on magnetic tape. 


DATA BASE - Data records that must be stored in order to meet the 
information processing and retrieval needs of an organization. 
The term implies an integrated file of data used by many 
processing applications, in contrast to an individual data 
file for each separate application. 


EAM -_ Electronic Accounting Machine, pertains to data processing 
equipment that is predominantly electromechanical such as: 
keypunch, collators, sorters. A computer is classified as 
EDP equipment. EAM equipment is also known as unit 
record or Tab equipment. 
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FIELD - A subdivision of a record containing one item of information, 
e.g., an employee's weekly time card containing his identi- 
fication number in one FIELD. 


FILE- A collection of related records. A FILE is usually either a 
transaction FILE or a master FILE. 


FILE LABEL - A LABEL that identifies the FILE. An internal FILE 
LABEL is recorded as the first record of a file and is machine 
readable. A FILE LABEL is a control feature, e.g., insures 
that the operator has the proper master file for updating or 
prevents the operator from mistakenly using a master file as 
a scratch file. 


FILE MAINTENANCE - The updating of a file to reflect the effects 
of non=periodic changes, such as adding, changing, or 
deleting data, e.g., addition of a new employee to the 
employee master file. 


FILE PROCESSING - The periodic updating of a master file to reflect 
the effects of current data, usually transaction data con- 
tained on a transaction file, e.g., weekly payroli run that 
updates the payroll master file. 


FIXED LENGTH 

RECORD - A file containing a set of records, each of which contains 
the same number of characters. (Contrast with variable 
length records). 


INDEX FILE - Pertains to a disk file that is organized somewhat like 
the books in a library, i.e., an index tells where the 
record is stored. The index contains two facts about each 
record ina file. First, the contents of the record's key 
field appears in the index. A key field contains data that 
uniquely identifies a record and is the basis for the file's 
sequence, e.g., customer number. The disk address 
represents the location on the disk where the record can be 
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found. An index label contains the same number of entries 
as there are records in the file. 


Various terms associated with processing an indexed file are: 
index sequential processing, indexed access method, address 
routing method. These files may be processed sequentially 
or in random fashion. 


INTEGRATED DATA 
PROCESSING - Data processing by a stream that coordinates a num- 


KEY - 


ber of previously unconnected processes in order to improve 
overall efficiency by reducing or eliminating redundant 
data entry or processing operations, e.g., 4 billing result 
file (data base) containing information from incoming cus- 
tomer orders is used for: inventory (calculated usage), 
accounts receivable (generate statements), and sales 
analysis applications. Integrated data processing is also 
known as management information systems (MIS). 


One or more characters used to identify a particular record, 
especially used for sorting and merging operatings, e.g., 
an inventory part number and employee number. There may 
be multiple key fields in a record; e.g., a salesmen's 
commission file may be sorted by salesman within branch, 


-within district, within region, 


MASTER FILE - A reference file of semi-permanent information which 


is usually updated periodically by a transaction file, e.g., 
an employee MASTER FILE that contains a record for each 
employee. Each record would contain an employee number 


field, name field, address field, pay rate field, year-to-date 


gross pay file, etc. The year-to-date gross pay field would 
be updated each pay period. 
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RECORD - A group of related information items treated as a unit. 


A record is divided into one or more fields; e.g., an 
inventory record for each commodity might contain the 
following fields: 


PRODUCT NUMBER (A FIELD) 
DESCRIPTION 

NUMBER ON HAND 

NUMBER ON ORDER 
MINIMUM BALANCE 

UNIT COST 

NUMBER USED YEAR-TO-DATE 


RANDOM ACCESS 


FILE - 


A mass storage device capable of accessing any record 
directly without processing all prior records, A data file 
arranged on a randomly generated record address -- access 
to a record is accomplished by calculation of a formula 
based on a key in record. No index is required for this 
type of file. 


SEQUENTIAL 


FILE - 


Pertains to a file where records are in ascending or 
descending sequential order by an identification key, e.g., 
inventory file sequenced by part number. SEQUENTIAL 
FILES are for batch processing in which the files are on 
cards or DECtape. However, disk files may also be 
sequential . | . | 


TRANSACTION 


FILE - 


Records of data to be processed with master file record in 
order to update the master file, e.g., a file containing all 
of the daily transactions in an inventory control application, 
such as quality of items received, shipped or ordered, which 
update the inventory master file reflecting these changes. 

A transaction file is also known as a detail file. 
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VARIABLE LENGTH 

RECORDS - A file containing a set of records in which the number 
of characters of each record may vary in length. Usually a 
VARIABLE LENGTH RECORD is preceded by the character 


count for that record, 


As a small business computer with COS, the DDS300 provides 
solutions for users with varied business scopes and backgrounds. The 
implementation language for COS 300 is DIBOL. A general overview 
follows to provide the student and/or business manager insight into 
those system elements used for program creation. 


DIBOL - A PROGRAMMING LANGUAGE 


DIBOL - Digital Business Oriented Language - is a general purpose 
higher level commercial programming language used by the program - 
mer fo implement commercial applications. Its compiler is an integral 
part of COS 300. With the COS 300 DIBOL compiler, the system 
generates application programs in computer machine language 
(MACRO instructions) to run on any DDS 300 computer. 


A DIBOL program is divided into two sections, a data definition 
section and a procedure section. The data section states (tags) a 
data file's record information structure in program operable units. In 
the procedure section, the language consists of a select group of 
English-like procedural verbs, each with comprehensive arguments. 
The verbs: PROC, START, END, ON ERROR, INIT, FINI, INCR, 
TRACE, NO TRACE, TRAP, XMIT, READ, WRITE, GO TO, IF, 
CALL, RETURN, CHAIN, ACCEPT, DISPLAY, FORMS, and STOP, 
plus data manipulation statements, provide the user with easy to use 
and powerful statements for the development of his programs. 


There are eight types of statements: 


Compiler Statements which tell the compiler the nature of 


the statements to follow. 


Device Control Statements which prepare data files (open 
and close) for use by the application program. 


Data Specification Statements which describe the type, 
size and location of data elements. 


Data Manipulation Statements which control calculations 
and movement of data within memory. 


Data Accept and Display Statements which define the 
cursor coordinates used to format data entry and display 
on the CRT terminal. 
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DIBOL - A PROGRAMMING LANGUAGE (cont.) 


Control Statements which govern the sequence of execution 
of statements within a program. 


Input/Output Statements which control data movement 
within memory or between memory and peripheral devices. 


Debugging Statements which trace program execution during 
test runs. 


Language Features 


Simple English-like Procedural Statements. Meaningful expressions 
to the user and the system's program compiler (not assembly language). 


ANSCII Character Sub-set (specified by the American National 
Standards Institute. ANSCII character code used as a Standard Code 
for information interchange). 


Multi-I|/O-Level Data Access by File, and Record. Direct access, 
at the logical (program) level, to data stored on disk or DECtape. 


Data Manipulation via: Record, Field and Subfield. Statements to 
clear data fields, move data between fields, convert decimal data 
to/from alphanumeric data, and format data, etc. 


Arithmetic Expression. Performs division, multiplication, addition, 
subtraction, and rounding. 


Array Handling. Any part of an array (series of items) can be accessed 
in a program statement by listing the position of the item. Subscripting 
notations (expressions in parentheses) are used to specify items in a 

list or table according to DIBOL rules. 


File Initialization. Statements assigning specified peripheral Input/ 
Output channels to logical or physical devices. 
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Branching. A computer operation similar to switching, where a 
selection is made between two or more possible courses of action 
depending on a related fact condition (IF and GO TO statements). 


Many Levels of CALL Nesting. Statements which include routines 
to call other routines. 


Tracing. Trace statements may be placed at strategic locations 
within a program to provide a usage correlation (source line numbers) 
between statement execution and the intended source program logic. 


Editing. When transferring data, field editing occurs with left and 
right justification, padding and “check protect" features. 


Cursor Control. Statements which provide display and data entry in 
a particular applications format on the CRT Terminal. 


Forms Control. The Forms statement is used to automatically position 
business forms to be printed on the DEC DATASYSTEM Line Printer. 


COMMERCIAL OPERATING SYSTEM 


COMPILER 


The COS 300 Compiler enables the DIBOL user to compile a source 
program utilizing up to 28K word locations of memory (56,000 
characters) for his application system. Input for the source program 
can originate from the console keyboard, from cards, from DECtape 
or disk, and from paper tape. Source program inpur is implemented 
via the COS 300 Monitor which provides the user both input editing 
and generation of iab control statements. The standard output from 
compilation resides on the System's mass storage device in executable 
format and may be stored by name in a user's program library. 


As a mass storage resident system, DIBOL provides the facilities for 
random storage and direct retrieval of programs and data on both 
DECtape and cartridge disk. The system also provides the ability to 
dynamically divide DECtape and disk storage into fifteen logical 
units for data file storage. 


Each cartridge disk can contain up to 404 directly accessible segments 
of 8,000 bytes each. The COS 300 system handles storage capacities 
ranging from 377,344 character DECtapes to 3.2 million character 
disk cartridges. This allows a simple but comprehensive means for new 
users to utilize state-of-the-art cartridge disk storage for their on-line 
data base. 


At compile time, the minimum configuration required to operate is 
the DEC DATASYSTEM Modet 320 and resident COS 300 software. 
At run time the user's applications programs can utilize a wide range 
of input/output facilities, full internal capacity, and through-put of 
any mode! in the DDS 300 series. This includes Models 320, 330, 
and 340, 


Several COS 300 system programs are utilized with the compiler in 
the process of creating user programs. 


Monitor 


COS 300 provides program operation master control via a System 
Monitor. To facilitate memory economy the Monitor resides in two 
segments: one core resident, and the other residing on the system 
device. Together these segments provide the following facilities 
through a comprehensive set of Monitor commands used for: 


Program Loading, 
Editing, 

File Directories, 
Operation Messages. 


The Monitor contains all the system I/O handlers required for efficient 
throughput and a high degree of program/device independence. The 
system provides a specialized software handler for each peripheral 


device on the DEC DATASYSTEM. 


The assignment of logical units to physical mass storage devices pro- 
vides greater utilization of the storage area. This device independence 
is available at run time. Any mass storage device can be specified for 
\/O and program execution using the devices specified via SYSGEN. 


Editor 


Editing consists of a line editor as part of the Monitor. It is an 
operator/system interactive editor providing a “scratch-pad file" for 
source program entry. Input statements consist of line numbers followed 
by the information to be inserted, deleted or changed. The COS 300 
editor provides automatic sequencing and resequencing of line numbers 
by simple commands. Input for the editor can originate from the 
console keyboard, cards, paper tape, DECtape, or disk. Output from 
the editor can be a listing of a file on the console display or the line 
printer or paper tape. In the program development stage the user can 
save and quickly recall programs from the system device (DECtape or 
cartridge disk). In an operational mode, the user can batch commands 
to the Monitor into a file to be executed as a job stream. 
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COMMERCIAL OPERATING SYSTEM (cont.) 
SYSGEN (SYStem GENeration) 


A conversational utility program that allows the user to configure or 
modify the current system using simple English-type statements. It 
provides the following optional features: 


Configures the I/O handlers in the system, 

Takes new logical unit assignments from the 
operator's terminal, 

Prints a table of current logical unit assignments. 


The user can specify the type of line printer used and where the 
system is to reside, on DECtape or disk. The user can also specify 
the number of columns used on the line printer, either 80 or 132 
columns. SYSGEN provides the facility to transfer the system to 
another device for installation startup. 


PIP Peripheral Interchange Program 


A utility program which provides file transfer from one device to 
another. It will permit the user to move source, binary, system, or 
data files from one device to another. It has the following 
capabilities: 


e Replaces the old file with a new file 
e.. Transfers.Input-from. cards, -paper.tape, disk, or 
DECtape, and Outputs to paper tape, DECtape, 
disk or the line printer 
e Copies an entire DECtape or disk onto a similar device 
e Eliminates overhead space from the file directory. 


Data File Creation and Maintenance Programs 


System programs available for structuring transaction files are: 
BUILD, UPDATE, and SORT. For more detailed information con- 


cerning this software, refer to the COS 300 System Reference Manual. 


BUILD 

A file creation program used to create a data file. It is a key-word 
data entry package. A BUILD "Control Program" allows the user to 
specify key words followed by an ordered string of formatted data. 
BUILD has the following features: 


Provides hash totaling, 

Provides range checking, 

Computes check digits, 

Provides auto-dup field (automatically duplicates fields), 

Permits specification of default fields, 

Permits specification of incremental fields, 

Checks errors on any one or all given fields within a key 

word line, 

e Sets special field flags that the user can later check 
under program control, 

e Has the ability to specify up to seven different output 

files from one input file. 


BUILD facilitates a way of flagging certain fields within a record 
for use as a program control switch. 


UPDATE 
A master-file maintenance program used to: 


e Change existing records on the data file, 

e Insert new records, 

e Delete old records, 

e Print a report showing all changes, inserts and deletions. 


SORT 


COS 300 SORT is a poly-phase sort. It can sort data file records in 
ascending and descending order. SORT requires a minimum of three 
DECtape units or an equivalent disk unit. The user can specify up to 
eight fields (with sub-fields) of a fixed length record as a sort key. 
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COMMERCIAL OPERATING SYSTEM (cont.) 
The SORT has a merge file capability. For a multi-reel sort, each 
file must be sorted then merged. The same SORT control program may 


be used for both sorting and merging. 


Utility Programs 


Several utility programs are provided, among which are the following: 


CREF, DAFT, MARK, BOOT, and PATCH. 
CREF 


CREF is a cross reference utility program to aid program development. 
It provides an alphabetical listing of all symbols used in a DIBOL 
program, along with the line number where each symbol is defined 
and used. 


DAFT 

The DAFT (Dump And Fix Technique) program provides the capability 
to search for, examine and change records as well as to list records 
and parts of records on the line printer or terminal. 


MARK 


There are four format programs, RKEMRK, RK8MRK, TDMARK, and 
DTMARK, which are used to mark DECtape and disk for use with the 
COS 300. 


BOOT 
BOOT is used to bootstrap the system from one device to another. 


For example, BOOT is run to transfer control from DECtape to disk 
so that the latter may become the system device. 


PATCH is used to fix (or patch) system programs or the Monitor on a 
COS system tape. Data to make the changes is provided by DEC as 
patches in the form of a dialog. 
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DIBOL MANUAL AND SYSTEM CONVENTIONS 
SOURCE LANGUAGE INPUT ; 
Several documentation symbols and terms used in this text are 
described below- 


[ene | DECtape gene [ne me | Symbols 


Lower-case characters - Represent information that must be supplied 
by the user, such as values, names and other parameters. 


Upper-case characters - Words or characters that must be used 
exactly as shown. 


SYSTEM 
Monitor 


Ellipsis... - Indicates the optional repeating of the preceding data. 
Underscored characters - Indicate output from the system. 
System Device 
ws (Space) - Indicates a space. 
Compilation {} (Braces) - Braces indicate a choice of one of the items 
Diagnostics enclosed. 


Printed 
Listing [] (Brackets) - Brackets indicate an optional feature. 


» (CR Key) - The down-arrow indicates a Carriage Return Key 


DIBOL 
COMPiler 
operation on the terminal keyboard. At this 


<a point, control is advanced to the next line. 


System Device 


Terms 
QQ. YY 


Object Program Files System 


file-name, program-name, label and keyword - are used to identify 
Diagnostics 


names assigned to files, programs, statements, and input lines. 
These names may be of any length, but only the first 6 char- 
acters are recognized. 


OBJECT 
PROGRAM 
EXECUTION 


CRT 
Display 


cursor - An underscore symbol on the operator's display screen which 


Applications indicates the character position for the next keyboard stroke. 
I/O 
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SECTION 1 


Basic Source Language Programming 


This chapter is intended to give the student a frame of reference in 25 
the form of an overview of DIBOL programming and operation. 


In the following frames you will learn, through programmed instruc 
tion, how to read a simple DIBOL program. The questions will be 
based on program examples which provide frame answers. 


Frame one presents a program statement of what the first example 

program does. (Turn to Foldout #1). Read the program definition 

and review the foldout before proceeding to the QUESTION and 3 
ANSWER. 


PROGRAM: Information is stored in records located on a DECtape. 
Each record is to contain 64 characters. A read 
operation reads one record at a time (starting with the 
first record in the file). List on the line printer all 
information on the DECtape file, printing one record 
on each line. After printing the last record on the 
tape file, stop the program. 


Systems and program flow charting is a technique used in organizing 
and documenting information about existing application systems and 
in planning new ones. Diagrams called flowcharts show the flow of 
information and the sequence of operation. They are important 
items in evaluating procedural logic and useful tools for future 
program expansion and revision. 


Does the flowchart on-Foldout #+ iHustrate the 
logic outlined in the verbal statement of our 
program ? 


1. QUESTION: 


ANSWER: Yes, the flowchart is accurate. 

The shapes of the boxes in the flowchart denote 
different functions such as comparison, reading/ 
writing, beginning/end, and internal data arrange- 


ment. Using the flowchart, answer the questions: 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


What is the function of this symbol ? 


K*K* 


It denotes the beginning/end of the program 
logic flow. 


What is the function of this symbol ? 


KEK 
lt denotes the testing of a condition and, 
depending upon the outcome of the test, shows 
the action to be taken. 


What is the function of this symbol? 


| 


KKK 
It denotes an Input (reading) or an Output 


(writing) operation to be performed by the 
computer. (In the program there is an internal 


“device assignment so the computer would issue 


a read/write command to the proper input/ 
output device.) 


Below the flowchart on Foldout #1 is the DIBOL-coded program which 


QUESTION: 


ANSWER: 


What is the function denoted by this symbol ? 


KKK 


It denotes explicit commands such as device 
initialization, move data, etc. 


accomplishes the functions diagrammed. Note that it requires only 
ten statements to accomplish the outlined task. 


The following dialogue is designed to help the reader understand the 
function of each statement in the DIBOL program. 


6. 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


From the flowchart, is each character of in- 
formation passed directly from the DECtape to 
the printer? 


KKK 


No. A complete record composed of 64 char- 
acters is read into the computer memory before 
any data is written (output) on the line printer. 


Since data records are not restricted in length to 
64 characters, how does the computer know how 
much memory to reserve for the storage of the 
data record? 


KES 


The programmer must teil the computer how much 
memory will be required to store input data. A 
DIBOL RECORD (or BLOCK) statement reserves 
areas of core to be used during processing and as 


temporary storage (input/output buffers). 


8. QUESTION: 


ANSWER: 


10, QUESTION: 


In a program the area of memory reserved for 
record storage precedes the processing instruc- 
tions. From the DIBOL coding on Foldout #1, 
which statement allocates 64 characters of 
storage ? 


KEK 


Statement 3; (FIELDI, A64). 


Statement number 3 says the block of storage 
labelled FIELD1 will be reserved for 64 alpha- 
numeric (A) characters. What is FIELDI 7 


KKK 


It is a field label, It could just as well be 
called XX, YY, or any six character field be- 
ginning with a letter. it serves as a symbolic 
name which the programmer can reference from 
the procedure section of the program (note: it 
is referenced in the sample program via the 
record's label). One or more field statements 
is required for each RECORD statement. 


The RECORD statement (#2) gives a label 
"NAME" to an area of computer memory avail- 
able for record input. If several different input 
devices are being used, several different 
RECORD statements (with their respective field- 
definition statements following) could appear. 
In order to designate two 16 alphanumeric char- 
acter fields and one 32 alphanumeric character 
field instead of the present 64-character field, 
write the appropriate RECORD and field- 
definition statements. 


KX 


ll. 


12. 


ANSWER: 


QUESTION: 


A compiler control statement is a non-executable 


ANSWER: 


QUESTION: 


ANSWER: 


RECORD NAME2 
FIELDI, Alé 
FIELD2, Alé 
FIELD3, A32 


DIBOL statement. Such a statement gives the 
compiling program information necessary to 
properly interpret notations made by the pro- 
grammer. Compiler statements tell the compiler 
program when to begin and end encoding DIBOL 
source statements, and when to begin converting 


DIBOL statements into actual machine procedures. 


Look at the sample DIBOL program and determine 
which are the compiler statements. 


KEK 


Statements 1, 4, and 10. Statements 1 and 10 


tell the program the bounds of the DIBOL coding. 


Statement 4 tells the compiler program to in- 
terpret the following lines of coding as procedure 
to be executed by the computer. 


The data section of a DIBOL program describes 
the data elements used in the program and 


allocates memory «..Which.statements-in: 


Foldout #1 comprise the data section? 


KEE 


Statements 2 and 3 comprise the data section. 


13. QUESTION: 


Which statements are actual processing in- 
structions? 


KEK 


ANSWER: 


Statements 5 through 9 are processing state- 
ments. 


14. QUESTION: What is the function of the word LOOP in 


statement 8? 


REE 


ANSWER: LOOP is a label denoting a point in the pro- 
cessing cycle to which the program branches. 
In this case, the program branches to state- 


ment 6. 


15. QUESTION: Statement 5 is the first processing instruction. 
From the flowchart, what is accomplished by 


this statement? 


KKK 


ANSWER: It tells the computer which channel number 
will be used (whenever the program refers to 
this file, its channel number will be 2); 
whether the file will be read (Input) or written 

..(Output), the-name of the file (FILE]), and 
where the file could be found (logical unit 1). 
This process is called file-initialization. 


Depending on the logical unit assignments made through program 
SYSGEN, FILE! could be on DECtape or disk. 


16. QUESTION: From the flowchart (and following the INIT 
statement in the program), what does the XMIT 
statement (#6) do? 


19. QUESTION: Statement 6 says: Read a record from channel 
number 2, storing the data from that record in 
the area labeled NAME. When no more 
records are available, i.e., the end-of-file 
(EOF) has been reached, then jump to the 
instruction labeled ENDFIL. Noting that 
only READ instructions have pointers to which 
the program will branch when an EOF is 
reached, what does statement 7 do? 


REE 


i 
ANSWER: It causes a read operation from channel 2. The 
XMIT refers to data transmission. It can either 
read (IN) or write (OUT) depending upon the 
file-initialization. If a file is initialized as an 
input (IN), the XMIT statement would cause a pecs 
read operation from the file. Ifa file is 
initialized as an output (OUT), the XMIT ANSWER: Since there is no end-of-file pointer (just a 
statement wouid cause a write operation onto channel number and the RECORD lIabel) this 
the file. The data is either read from, or must be a write command (writing data from 
written into, the RECORD specified in the storage RECORD NAME to channel number 6). 
XMIT statement (in this example, RECORD 
NAME). 
20. QUESTION: Note that it is necessary to initialize only a 
file-oriented device such as DECtape or disk. 
Devices such as terminal, line printers, cards, 
and paper tape readers do not need initializa- 
tion. Is device specified by channel number 6 
a file-oriented device? 


17. QUESTION: For XMIT (2, NAME) to cause a record to be 
written, what would the initialization state- 
ment look like? 

KKK 


KK 


ANSWER: INIT (2, Output, file-name, unit) 
ANSWER: No. It is a line printer and therefore does not 
need initialization. 
18, QUESTION: For XMIT (2, NAME, ENDFIL) to cause a 
record to be read, what would the initialization 
statement look like? If not specified, the following channel number associations are 


ee assumed by default: 


ANSWER: INIT (2, Input, file-name, unit). (As in 


statement 5 in our example.) 


paper tape reader 

line printer 

keyboard 

terminal scope or printer 


CON & OM 


ee a 


21. QUESTION: 


ANSWER: 


22. QUESTION: 


ANSWER: 


23. QUESTION: 


ANSWER: 


24. QUESTION: 


ANSWER: 


What does statement 8 do? 


KKK 


It is an unconditional command for the computer 
to branch to the instruction labeled LOOP. 


What is ENDFIL? 


KKK 


It is the label for the end-of-file routine 
referenced in statement 6. This label indicates 
the location for program transfer at the end of 
the input file. In this example, program con- 
trol would transfer to statement 9. 


What seems to be the function of statement 9? 


KEK 


It is a FINIsh statement with respect to the file 
on channel 2. Actually, in an output file, an 
end-of-file mark would be put on the tape, the 
tape would be rewound, and the channel number 
freed for other use. In the case of our input 
file, the channel number is freed but the file 

is not rewound. Only file-oriented devices 
require a FINI statement. 


Why was channel 6 not issued a FINI command? 


KEKE 
It is not a file-oriented device. The only file- 


oriented devices on a DIBOL configuration are 
DECtape and disk. 


QUESTION: 


Below is the same flowchart diagram as listed 
on the foldout. Mark in the appropriate 
statement number corresponding to the flow- 


chart function. 


A=5 
B=6 
C=9 
D=7 
E=8 
F=10 
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FOLDOUT #1] 


Rr 


SAMPLE PROBLEM 


FLOWCHART 


INITIALIZE 
DECTAPE 
AS INPUT 


CLOSE FILE 


PRINT IT ON 
THE PRINTER 
DIBOL PROGRAM FOR PROBLEM 


Statement Numbers 


START COMMENTS 


RECORD NAME 
FIELD], A64 


7 


PROC 
INIT (2,1N,'FILE', 1) 
LOOP, XMIT (2, NAME, ENDFIL) 
XMIT 6, NAME) 
GO TO LOOP 
ENDFIL, — FINI (2) 
END 


oe “™e 


1 
2 
3 
4 
Fs) 
6 
7 
8 
9 
10 


y 


SUMMARY 


Sample Problem 


To review the initial problem, i.e., printing a 64 character record 
from a tape file onto a line printer until the end-of-file, examine 
the following lines of the DIBOL program: 


I 
2 


START 


RECORD NAME 


FIELDI, A64 


PROC 


INIT (2, 1N, 
'FILEI", 1) 


LOOP, XMIT 
(2, NAME, ENDFIL) 


XMIT (6, NAME) 


GO TO LOOP 


ENDFIL,FINI (2) 
END 


;Compiler statement, non-executable. 


;Indicates the beginning of the con- 
tiguous area for the data elements 
that comprise RECORD NAME. 


;Data statement FIELD1 is an alpha- 
numeric field 64 characters long. 


;Compiler statement - begins pro~ 
cedure section. 


jlnitialize channel 2 as an input file. 
The Iohel of the file is FILE] and it 
can oe found on logical unit 1. 


;Read a record from channel 2 into the 
area assigned to RECORD NAME. 
When end-of-file is reached, it 


;Write RECORD NAME onto channel 
6 (line printer). 


;Go to statement that reads another 
record, 


jend-of-file. 


;Compiler statement--indicates the 
end of program. 


There are several fundamental! operating steps required to convert 

your documented program logic into machine usable binary code. 

Using a properly activated (powered-up) DEC DATASYSTEM Computer, 
you must first load the central processor's memory with the COS 300 
Monitor program. This system initialization is activated by the 
Hardware Bootstrap Switch, but only after you have correctly in- 
stalled the System DECtape or Disk Cartridge on the drive addressed 


t sic operating steps as: maior operating categories, an opera- 
tional flow diagram, and specific operating steps (1-10). The major 
operating categories are as follows: 


System initialization, 

Keyboard input, 

Source program editing, 

Source program compilation, 

Source program syntax evaluation and correction, 
Program logic testing and correction, 

Object program storage, 

Source program storage. 


Study Figure 1-1 and then answer the following questions. 


The Monitor routine must be loaded via a bootstrap operation. This is 
an internal computer hardware/software technique designed to bring 
itself into a desired state of readiness by means of its own action, 
e.g», a hardware initiated routine whose first few instructions are 
sufficient to bring the rest of itself into the computer from either the 
DECtape or disk storage device. 


26. QUESTION: 


From Figure 1-1, what operator step or steps are 
necessary to accomplish this initialization? 


Kk* 


ANSWER: Steps 1 and 2 load the System Monitor. 


NOTE 


In addition the operator must enter the current date before pro- 
ceeding. This date is used during program execution to date 
reports, files, and new programs. 


Review step 5 in Figure 1-1. The Monitor provides editing commands 
to input and manipulate Source Program statements in a temporary 
storage area (edit buffer) within memory. They include: 


Number commands - inserts the text line beginning with 
the number into the edit buffer (line number text). 


Line Number (LN) - automatically outputs line numbers 
so new programs can be entered without typing each line 
number. 


Erase (ER) - erases text from the edit buffer. 


Resequence (RE) - renumbers the program lines to adjust 
for additions and deletions. 


All text input to the Monitor must be assigned a series of line numbers 
All inserts, changes, and deletions are accomplished using these 
numbers. 


27. QUESTION: 


Using Figure 1-1, which of the above commands 
is used as a prerequisite to program text entry? 


KEK 


The ERASE command, when used without line 
numbers, clears the entire edit buffer. This 
prevents unused buffer lines, containing lines 
from a previous program, from appearing as 
part of the current program. 


ANSWER: 


FOLDOUT #2 


Rasic Operating Steps 


System Initialization 


1. 


Bae ce : ‘ ri 
System Initialization Berean 


Keyed data input 


Source | corrections 


Input 


5. 
Source Program 


creation - using 


DIBOL language rules 


MONITOR 


Compile Source Program 


into Object Program 6. 
and print diagnostics 

7. 
Source Program 
Language ompilatiom, 
evaluation uccessful? 

& 
8. 


Program logic test 


9. 


Store the Object 
Program on the 
System device 


Completed 
Object Program 


Store the Source 
Program on the 
System device 


as Backup 
10 


Figure 1-1 


Compile Source Program 
i 


Mount the proper System DECtape or 
Disk Cartridge. 

Press the bootstrap switch. 

The Computer responds with DATE? 

The operator enters the month/day/year 
in the following statement. 

DATE wamm/dd/yy After the system 
responds on a new line with an initial 
period (.) enter ERASE ) to clear the 
Edit Buffer. 


Editor Source Input 


After the system responds on a new 
line with an initial period (.), enter 
a DIBOL program putting one statement 
on a line. Precede each statement 
with a line number and a space. To 
correct a statement, type its line 


number, a space, and the new statement. 


To compile the completed program in 
the editor scratch area enter: 
.RUN COMP) 


Check the source listing generated by 
the compiler for error messages. A 
caret (“) points to the error. Use 
the Editor functions to correct all 
language errors and then recompile. 


To run the compiler program if no 
errors are detected enter: 
-RUN 5 


Program File Creation 


To save the object program under a 
unique program name enter: 


. SAVE prognm |) 


10. To save the source program from the 


editor scratch area for future 
modification enter: 


-WRITE prognm ) 


To compile the completed program use the Monitor command state- 


ment RU wiCOMP ) ‘ 


The compiler takes the DIBOL language program from the edit buffer 
and converts it to an object program which can be executed by the 
computer. In the process of creating the executable program the 
compiler can generate a printed listing of the source program and a 
storage map of the records and fields which are used by the program. 


The compiler checks the source program for DIBOL syntax errors. The 
source program must be free of these errors before object program code 
can be generated. 


Most compiler error messages are printed on the source listing after 
the line in which the error occurs. A caret (*) in the source line 
points to the approximate location of the error. A complete list of 
errors can be found in the COS 300 System Reference Manual. 
Several commonly found messages follow: 


UNDEFINED NAME 

NAME PREVIOUSLY DEFINED 
BAD ALPHA VALUE 

BAD DECIMAL VALUE 
COMMA MISSING 


28. QUESTION: From Figure 1-1, when an error message occurs 
-- at step-7,-what steps-must-be taken to correct” 
it? 


KKK 


ANSWER: Steps 5, 6 and 7 in Figure 1-1 must be repeated 
to correct the error. You should correct all 


known errors before step 6. 


The COMPiler will signal a clean listing with the message "NO 
ERRORS DETECTED" on the print-out. This indicates that your usage 


of the DIBOL language syntax is correct. It does not guarantee 
that the logic of your program will produce the desired results. The 
only way to test your program logic properly is to run the compiled 
program with real or simulated data. 


To run the compiled program, enter the Monitor command RUN J) . 
When a file-name is not given after RUN, the binary file (compiled 
source program) in the Edit Buffer is used as input to be executed. 


29. QUESTION: From Figure 1-1, when the program fails to 
perform properly with test parameters what 
steps must be taken to modify it? 


KK 


ANSWER: First make the necessary adjustment to the 
program documentation then steps 5, 6, 7 and 


8 must be repeated to change the program. 


The Monitor allows both the binary file (B) and source file (S) to be 
assigned the same name. To protect both versions of the completed 
program, you just assign it a unique program name and transfer the 
edit buffer to a storage device before a new program is entered. This 
is accomplished by two Monitor commands, SAVE and WRITE. 


30. QUESTION: From Figure T-T which of the above mentioned 
Monitor commands is used to save the compiled 
binary program? 


KKK 


ANSWER: The SAVE command stores the finished version 
of the object program on the System storage 


device under a unique program name, 


SECTION 2 


DIBOL Syntax 


The student should now have a general knowledge of the elements 
that make up a DIBOL-coded program, thus making the information 


in this section more meaningful. 


2-1 


START 
PROC 
DATA SECTION END 


There are two sections in a DIBOL program, First is the data section 
which describes all data and causes allocation of memory storage. 
Second, there is the processing section which contains the executable 
instructions. 


1. QUESTION: What is the statement that separates the data 
section from the processing section? 


REE 


ANSWER: The PROC statement. 


2. QUESTION: Is PROC an executable statement? If not, 
what is it? 


ERE 


ANSWER: PROC is not an executable statement. From 
the previous section we recognize it as a 
compiler statement, 


3. QUESTION: — What is a compiler statement? 


REF 


ANSWER: A compiler statement is a message to the 
compiler program indicating the nature of the 
DIBOL-language statements. A compiler 
instruction is not executable by the DIBOL 
program. 


There are three kinds of statements in a DIBOL program: 


1. Compiler statements. 
2. Data statements. 
os Procedure statements. 


DIBOL programs normally consist of a START statement, followed by 
the data section (composed of data statements), followed by a 
required PROC statement (a compiler statement), followed by the 
procedure section (composed of procedure statements), followed by 
an END statement. START and END are optional statements. 


4, QUESTION: What is the only required compiler instruction 
in a DIBOL program? 


RK* 


ANSWER: PROC 


5. QUESTION: What are the three compiler statements and 
two sections that make up a DIBOL source- 
program (in the order in which they appear)? 


KKK 
ANSWER: START (compiler instruction) 
_ data.section. edinsgoeee 
PROC (compiler instruction) 
processing section 
END (compiler instruction) 


RECORD 
6. QUESTION: Where is the data section in a DIBOL program? 


EX 


ANSWER: The data section is between the START and 
PROC statements. 


7. QUESTION: From the sample program, in which section does 
the RECORD statement reside? 
, REE 
ANSWER: The RECORD statement resides in the data 
section. 


The RECORD statement designates the beginning of a group of data 
statements. It may or may not give that group a name. It controls 
where in memory the block of data will be stored. A RECORD 
statement must be followed by one or more data statements. (A data 
statement defines all data elements with respect to type and size.) 
The word BLOCK may be used interchangeably with RECORD. The 
general format for a RECORD statement is: 


RECORD record-name, X 
required optional optional 


8. QUESTION: _ In the following example, is the RECORD 


statement used correctly? 


START 
RECORD A 
RECORD B 

Bi, Aé 
PROC 


KKK 


~ ANSWER: ~~ RECORD A is an invalid statement because a 
RECORD statement must be followed by one or 
more data statements. RECORD B is used 
correctly. 


A block of data requires a name only when referenced by an XMIT 
(data transfer) statement. A record may be read and stored in this 


2-3 


area, or the contents of this area may be written (output). There is 


Fe oon a nt 


name is required). 


9. QUESTION: What can be deduced about the second 
RECORD statement following? 


ANSWER: Since the second RECORD statement does not 
have a name, it is not intended to be used as 
an input/output buffer. It is used only for 
temporary storage of program data, 


The data statement is used to define all data elements with respect 
to type and size. The DIBOL compiler assigns storage for the data 
on the basis of these statements. Any data statement that follows a 
record name is assigned to the contiguous memory locations in the 
order that the element occurs. If a record name is missing, the 
succeeding data statements are assigned to contiguous locations but 
not associated with any record name for input/output. If such data 
statements are referenced, they are done so individually. 


The general format of the data statement is: 


data name, data specification, _ initialization-specif. 
optional required optional 


The data name is optional, that is, a comma may be used without a 
data name if the program does not reference that individual data 


element but only references the entire RECORD. This is convenient 


when formatting an output line for the printer, so that intercolumn 
spaces do not require a data name but merely a comma followed by 
the type and size, e.g., (,A5). Normally, the data name is used, 


followed by the data specification (type and size), with an optional 


initialization field. 


The initialization-specification would normally be used in the 


temporary storage record but could also be used in an output record. 


If a specific data element is to be referenced, it must have a data 
name, 


Following are examples of valid data statements: 


A, Al0 

A, A7,'DIGITAL' 
A, D6, 123456 

FISH, A4, 'FISH' 


, AS 
COST, 5D6 
NOTE 


The Data element COST consists of 5Dé, which 
means there is an array of five fields, each six 
digits long. This could have been written as: 


COST1, Dé 
COST2, Dé 
COST3, Dé 
COST4, Dé 
COST5, Dé 


(The referencing of COST, 5D6, is done with 
subscripts which will be defined in the procedure 
section.) 


10, QUESTION: — In the following statement, what are the 
fields? 


TOT, D6, 00001 2 


RK 


ANSWER: TOT is the name by means of which the data 
can be referred; Dé is the data specification 
(in this case, six decimal digits) and 000012 
is the initialization specification (setting the 


six decimal digits to an initial value of 12). 


The data specification field (which follows the data name) consists 
of a data type (Alpha or Decimal), and the data size in characters. 
If the data size is omitted, 1 is assumed. If the initialization 
specification is present, the data specification is followed by a 
comma, then an alphanumeric or decimal constant. The alpha- 
numeric may contain any legal character enclosed in apostrophes. 
The decimal constant is a string of digits, optionally preceded by 
a plus or a minus sign. The plus sign is implied and the minus sign 
does not require a character for storage; i.e., NUM,D5,-12345. 
Data types cannot be mixed. For example, an alphanumeric 
constant may not be assigned to a decimal variable. The data 
element is assigned to the value of the initialization specification 
at the beginning of program execution. If the initialization 
specification is omitted, an alpha field is set to spaces and a 
decimal field to zeroes. 


11. QUESTION: Describe the data specified for the following 


five items: 
a) A, Al0 
b) TOT, Dé 
c) NUMS, 10D3 
d) HDRS, 10A12 
) 


TABLE, 3D2, 13, 15, 18 


RK 


@ 


12. 


ANSWER: 


QUESTION: 


ANSWER: 


a) A is an alphanumeric element with ten 
characters having a vaiue of spaces. 

b) TOT is a decimal element with six digits 
having a value of zero. 

c) NUMS is an array of ten decimal numbers, 
each with three digits having a value of 
zero. 

d) HDRS is an array of ten alphanumeric 
elements, each with 12 characters having 
a value of spaces. 

e) TABLE is an array of 3 decimal numbers, 
each with two digits. The first element 
has a vaive of 13, ihe second a value of 


15, and the third a value of 18. 


Suppose you want to reserve, in computer 
memory, a piace to store a record with four 
fields to be described as follows: FLD1 has 
three alpha characters, FLD2 has six decimal 
digits, FLD3 Led four decimal digits set to the 
value 125, and FLD4 has 10 alpha characters 
set equal to ne name DIGITAL. Write the 
appropriate RECORD and data specifications 
for this input buffer. 


KK 


RECORD IN (any name will do) 


FLDI,A3 

FLD2, D6 

FLD3, D4, 0125 
FLD4,A10,'DIGITAL wae ' 


P OPTION 


There are three ways data items can be initialized in the Data 
Section. 


1) A Data statement containing a P. 
2) A Data statement containing a D. 


3) A Data statement containing an initialization specification 


value ( (previously discussed) . 


oN. 2 mbites wm ~ is H H 
vne way of initializing a date item s by py ttt ng a Pp immediately 


after the data specification field of a data statement. Upon loading 
the program, the computer will ask the operator (via the terminal) 
to enter the value he wants to give that data item. A common use 
of this feature is to obtain a biel date which differs from today's 
date in Monitor. For example, the data statement might be 
described as: 


DATE, A8,P 


Upon loading the program, the following message would type out on 
the console: 


ENTER DATE 


At this point the program would wait for the operator to type in 
eight characters and type carriage return. The operator might type 
in 07/07/72 and type carriage return, CAUTION: If less than 
eight characters were entered, the results would be stored left- 
justified in DATE. If DATE were a decimal field, the results would 
also be stored left-justified. Unentered characters are either zero 
or spaces, depending upon the field type. Too many characters 
would run over into the following fields. For decimal fields, there 
is no verification that the characters entered were decimal 
characters. 


13. QUESTION: Suppose the programmer wanted a three-digit 
customer~number to be supplied by the operator 
at the beginning of the run. Write a data 


statement to initialize a field named CUST. 


KEK 


ANSWER: CUST,D3,P 


Ordinarily, input from the keyboard must be described in alpha 
format. This restriction does not hold true for initialization data (P). 


D OPTION 


A second way of initializing a data item is by putting a D immediately 
after the data specification field of a data statement. When the pro- 
gram is run, today's date (as specified to the Monitor at start up) is 
automatically stored in any field having a D in its data field specifi- 
cation. For example, the statement might be described as: 


TODAY, D6, D 


The date in Monitor would automatically be stored in the form 
MODAYR. 


_— 


Write a data statement to initialize a field 
named RNDATE to the date stored in 
Monitor. 


14, QUESTION: 


b) What would RNDATE contain at run time if 
an operator previously entered July 4, 1972 
as the Monitor date? 


KK 
ANSWER: a) RNDATE, Dé, D 
b) 070472 
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INITIALIZATION-SPECIFICATION 


A third way to set the value of a data item is by using the initializa- 
tion option, i.e., specifying an alphanumeric or decimal constant. 
The alphanumeric may contain any legal characters enclosed in 
apostrophes. The decimal constant is a string of digits, optionally 
preceded or followed by a plus or a minus sign, but without apos- 
trophes. Data types cannot be mixed in that an alphanumeric 
constant (i.e., DEC, D3). But '004' can be assigned to an A3 
alphanumeric field. 


15. QUESTION: Are any of the following statements incorrect? 


a) A,A8,'ABCDEF98' 
b) TOT,D3,'123! 
c) NUM,A3,123 
d) B,D6,222334 

e) C,D3,23A 

f) D,D3,456- 


KEK 


ANSWER: Statement b is incorrect because an alphanu- 
meric notation (an apostrophe) was used to 


enclose a decima! item. 


(c) is incorrect because a decimal notation was 
used. to-describe-an alphanumeric constant. 


(e) is incorrect because 23A is not a valid 
decimal number. 


Statements a, d, and f are correct. 


When an initialized value is specified in a data statement, its length 
must correspond to the length of its respective data statement, for 
example, NUM, D4,0070. It would be illegal to initialize NUM to 


70 since NUM was defined as a D4 field. The initialization specifi- 


cation does not insert leading or trailing blanks (zeros). DiBOL wiii 
not permit the size of the initialized value to differ from the data 


field size. 


16. QUESTION: 


ANSWER: 


17, QUESTION: 


ANSWER: 


Which data statements are incorrect? 


a) A1,A8,'ABCDEF641' 
b) COST,D4,7779 

c) QTY,D5,'10000' 
d) NUM,D7,5979% 
e) Bi, A4,'1987 


KK 


Statement a is incorrect because the initialized 
value is longer than the data field. 


Statement c is incorrect because apostrophes 
are used to enclose a decimal item (apostrophes 
are an alphanumeric notation). 


Statement d is incorrect because the initialized 
value is too short; NUM is defined as a 7-digit 
decimal field. 


Statements b and e are correct usage of the 
initialization specification. 


We want NUMS to be an array of two decimal 
numbers, of three characters each. The two 
numbers are to have constant values of 333 and 
minus 61 respectively. What is the appropriate 
data specification? 


KKK 


NUMS, 2D3, 333, 061 
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ANSWER: 


19. QUESTION: 


ANSWER: 


nformation is generated by this data 
° 9 


ion F 


B, D6,000013 


KEX 


000013. The initialized value must be the 
same length as the data size. In this case, 
B is defined as a six-decimal digit. 


What information is generated by this data 


specification ? 


TOT,D1,C8 
RK 
None, the value is too long (2 characters) and 
C is not a decimal digit. Non-digit characters, 


whether or not enclosed in apostrophes, cannot 
be used for a decimally defined item. 


NOTE 


In prior versions of DIBOL, a blank data specification field left the 
original contents of memory ina field. To clear the fields of a 
record, RECORD C had to be specified. In order to be compatible 
with existing programs DIBOL treats RECORD or RECORD C 


identically. For example: 


RECORD A,C 
NUM, Dé 
TOT, D7 
COST, D4, 4999 
BI,A7 


The initialized value of COST would not be cleared, 
but NUM, TOT, and Bl memory locations would be 
cleared. The first statement could have been 
RECORD A. 


20. QUESTION: Consider the following operation: 
DATE,A8,P 


When the program is loaded, the computer 
types 


ENTER DATE 


and the operator types 07/07/1970. What 
happens? 


RKK 
ANSWER: Since too many characters were typed, it is an 


error. 07/07/19 is stored in DATE and 70 is 
stored in the following field. 


RECORD, X 


The concept of the overlay is a valuable tool in the preservation of 
computer memory. By means of the overlay, two RECORD statements 
can describe exactly the same area of computer memory. Whenever 
there is an X there must be a previously defined RECORD statement 
without an X. There can be one or more overlays defining the same 
area. Note the use of X below. 


RECORD A 
AI,A5,'DIBOL' 
A2,A8, ‘SOFTWARE! 
A3,A7 

RECORD B,X 
BI,A5 
B2,A8 
B3, A7'SYSTEM' 
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In this example, the fields in RECORD B occupy the same area of 
computer memory as the fields in RECORD A, 


21. QUESTION: What is the value of data labeled BI? 


Kk 


ANSWER: BI='DIBOL' 


22. QUESTION: What is the value of B2? 


REE 


ANSWER: B2="SOFTWARE' 


As a general rule, data specifications in overlays should be consist- 
ent. Problems may arise if an alphanumeric item is redefined as 
decimal in an overlay specification. Normally, initialized values 
are not used in overlays. The overlay (X) block must be equa! to or 
smaller than the last non-overlayed record. 


23. QUESTION: _ Is the following correct? 


RECORD A 
Al,D10 
ae nes A2.A10 
RECORD B,X 
BI,D5 
RECORD C,X 
C1,D3 
C2: D7 
C3,A5 
C4,A5 


ANSWER: Yes. The redefined records, RECORD B and C, 
are the same size or smaller than the record 


they redefine, RECORD A, 


24, QUESTION: 


Is the following a legal use of the overlay? 


RECORD A 
Al,A3,'FUN' 
A2,A5,'LOVER' 

RECORD B,X 
B1,D8 

RRS 


ANSWER: Yes. However, since Bl] is decimal, and the 
data it redefines is alphanumeric, a run time 
error would occur if Bl were not cleared before 


being used in a data manipulation statement. 


25. QUESTION: _ Is it legal to name a RECORD X? 


REK 


ANSWER: Yes. It is also legal to have RECORD X,X. 


A symbol (be it a data name, record name, or a statement label 
defined in the PROC section) consists of alphanumeric characters, the 
first of which must be a letter. Only the first six characters are 
significant. Anything in excess of six characters is ignored. Data 
names and statement labels must be followed by a comma. A record 
that is to be used for input or output has a maximum size of 510 
characters. Other records have a maximum size of 4094, A decimal 
field has a maximum length of 15 digits and cannot have a name. 
Alphanumeric fields have no size restriction other than record size. 
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26. QUESTION: 


ANSWER: 


In the following exampie, determine any errors 
in data or record names, in their size or their 
value assignment: 


d) 


a) RECORD INPUTBUFFER 

b) NAME,A20 

c) POPULATION, D17 

d) A12Y4X,A21,'ELKsMOUNTAIN aWYOMINC 
e) 3ABC,A3,'ABC' 


f) RECORD B 
g) TABLE, 100D5 

h) TABLEI, 10D2 

i) RECORD 
i) TEMP,D 


k) WORKTAB, 200D6 
1) TABLE10, 100D10 


REE 


The record name INPUTBUFFER is more 
than six characters and is thus recognized 
as INPUTB. This, however, is not an 
error. 


No errors. 


The field name POPULATION is more than 
six characters and will be recognized as 
POPULA. This is not an error. However, 
it is defined as a Decimal field containing 
17 digits -- decimal fields used in arith- 
metic operations cannot exceed 15 digits 
and will generate run-time errors. 


No errors. 


The field name 3ABC is invalid. It must 
start with an alphabetic character. 


f) 


g) 


No errors. 
No errors. 


This record contains 520 characters. It is 
an error to give a record a name if it 
contains more than 519 characters. 


No errors. This record is less than 4096 
characters. Since it has no name, it can 
never be used for input or output. 


No errors. TEMP is defined as a Decimal 
field containing one digit. 


No errors. The field name is recognized 


as WORKTA. 


No errors. TABLE10 is recognized as 
TABLE]. 


Many times a programmer will make comments, so that someone else 
reading his program will know what he is doing. A semi-colon (;) 


tells the compiler-program that all information following is not to be 
interpreted as program text, but rather as comments by the programmer. 


Thus, comments can appear on a program listing, but will not affect 
the operation of the program. Here is.an example of a comment: 


START 


THIS PROGRAM READS INDIVIDUAL TRANSACTIONS 


RECORD A;THIS IS THE INPUT RECORD BUFFER 
Al ,A16;CUSTOMER'S NAME IS STORED HERE 


The comment is terminated by a carriage-return line feed. The 
comment following a START or PROC statement is used as a heading 


for program listings. 


27. QUESTION: 


ANSWER: 


What are the functions of these computer- 
defined symbols? 


1X 


KK 


The X indicates one record of data elements 
will overlay the previous record (use the same 
space in computer memory that the previous 
record was using); multiple overlays of the 
same record are permitted. The semicolon 
indicates the beginning of a comment. 


If the X option is used in a RECORD statement without a record 
name, then a comma must follow the word RECORD, i.e., 


RECORD,X. 


DATA SECTION SUMMARY 


The data section describes all data used in a program and causes 
allocation of memory storage. It consists of one or more data 
records. Each data record section is made up of a RECORD statement 
followed by one or more data statements. 


ly 


RECORD STATEMENT 


me 
4) 


DATA STATEMENT 


a) 


ECORD 


COR a 
INLAY INE PORUIU TUS, Seyesy NK i} 


ane oe 


Unnamed Form - A record name may be omitted, e.g., 
RECORD. All uninitialized fields 
are cleared, 


Data Overlay - Overlay a preceding storage area, 


e.g., RECORD, X or RECORD B,X. 
All uninitialized values are cleared. 


Normal Form - 


data name, 
(optional) 


data specification, 
(required) 


initialization specif. 
(optional) 


For example: FIELD1,D4,1234 
FIELD2,A4,'ABC4' 


Operator Initialization - Specified by a P and causes 
entry of data from keyboard before program execution, 


e.g., RNDATE,A8, P. 


Date Initialization - specified by a D and causes 
entry of the Monitor date. 


a) 
a ‘ 
£ 
q 
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hree ways fo initialize data elements in the ection: 
A data statement with an 
initialization specifica- 
tion. If no value is 
specified the field is 
cleared. 


Data Statement Initialization - 


Operator Initialization - A data statement with a ,P 
which allows entry of data 


from conso le. 
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Date Initialization - A data statement with a ,D which 


automatically enters Monitor's date 
at run time. 


PROCEDURE SECTION 


28. QUESTION: What is the compiler statement that separates 
the data and procedure sections? 


REK 


ANSWER: The PROC statement separates the data and 
procedure sections. 


29. QUESTION: What is the difference between a procedural 
statement and a data statement? 


RK 


ANSWER: Procedural statements are executable. 


INIT 


In a computer program, procedural statements are executed sequen- 
tially, the sequential execution of instructions can be changed by a 
branching instruction. 


The first procedural statement discussed is the file-initialization 
statement. The general form is: 


INIT (channel, dev, data file name, logical unit) 


The INIT statement is used to associate a channel number with a 
device and to initialize that device. Channel is a number from 

1 to 15 which is to be linked to a logical or physical device. This 
number is then used in other statements, such as XMIT, to refer to the 
same device. 


Dev is the name of the COS 300 device to be associated with the 
channel number. These names can be abbreviated, since only the 
first character is checked. The following list contains the valid 
dev names: 


Dev Abbreviation Meaning 


IN | Mass storage device to be used for input. 

OUT ) Mass storage device to be used for output. 

UPDATE U Mass storage device to be used for random 
access, 

KBD K Input from terminal keyboard. 

TTY T Output to terminal printer or display. 

LPT L Line printer. 

CDR C Card Reader. 

RDR R Paper tape reader. 

PTP P Paper tape punch. 

SYS S Input from a file created on the system 
device with the editor. 

For example: 
INIT(1, KBD) 


will initialize the terminal keyboard and any references to channel 
1 will be references to the terminal keyboard. 


Only mass storage devices (disk or DECtape) need be INITed. It is 
optional for all other devices. If not specified, the following 
channel number assignments are assumed: 


5=PTR 
6=LPT 
7=KBD 
S=TTY 


30. QUESTION: 


ANSWER: 


Write a statement to initialize the terminal 
display and assign it to channel 8. 


KK 


INIT(8,TTY). 


However, COS 300 has already assigned the terminal display to 
channe! 8, This statement is redundant. Only mass storage devices 


need by INITed. 


31. QUESTION: Write a statement to initialize the line printer 
and assign it to channel 1. 


KKK 


ANSWER: INIT(1, LPT) or INIT(1,L). 


Both statements are identical in DIBOL. 


Only mass storage devices specify the data file name, which is re- 
quired, and a logical unit number, which is optional. The data file 
name is an alpha constant or a variable which is physically written 
on this file. !t can be up to six characters; anything in excess is 
ignored. Any valid COS character can be used to make up the 
name. If a variable is used with the P option, a file name can be 
specified at run time. 


Unit is an optional decimal expression used with |, O and U device 
codes to specify the logical unit where the data file is stored or to 
be stored. If the logical unit is not specified, a MOUNT message 
will occur at run time. 


Logical units are specified in SYSGEN and divide the available mass 


storage into 15 possible areas for data files. These areas can be 
different sizes (in multiples of 8000 characters) and more than one 
area can be assigned to one physical device. 


32. QUESTION: 


Write the statements necessary to 


a) initialize a DECtape data file called 
MASTER which will be referred to as 
channel 2 and be used as input. 


c) 


ANSWER: a) 
b) 


c) 


initialize a second DECtape data file 
called MASTER which will be referred to 
as channel 3 and be used for output. 


initialize a card file containing transac- 
tions which will be referred to as channel 
5 and be used to update the input MASTER 
file. 


KKK 


INIT(2, INPUT, 'MASTER') 

| is sufficient in place of INPUT. Also 
the following message would occur at 
run time: 


MOUNT MASTER #01 FOR INPUT: 


at which time the operator would respond 
with the logical unit where the file could 
be found. 


INIT(3, OUT, MASTER’) 
O is sufficient in place of OUT. A 
message would appear at run time: 


MOUNT MASTER #01 FOR OUTPUT: 


to which the operator would respond as in 


(a). 


ANT (S, CDR) 


INIT(5,CDR, ‘TRANS') would be incorrect 
since the card reader is not a mass storage 
device and cannot have a file name 
associated with it. 


33. 


34, 


35. 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


QUESTION: 


How would you write a statement to initialize a 
File on logical unit 12 called MASTER which 
will be accessed directly and which will be 
referred to as channel 13? 


KKK 


INIT(13, UPDATE, 'MASTER', 12) 


Which of the following INIT statements are 
invalid and why? 


a) INIT(1,INPUT, 'FILEA', 4) 
b) INIT(3, IYBDGHKL, 'LABEL') 
c) INIT(2,X,'LABEL') 

d) INIT(5, KBD) 

e) INIT(5,IN'MAST') 

f) INIT@) 

g) INIT(13, KEYBOARD) 

h) INIT(7, TTY) 

i) INIT(15, UPDATE,'.$"#") 
j) 112,K) 

k) INIT(1,1,'$TEMP', 8) 

I) INIT(5,O, TAPEID, 3) 


KKK 


c) X is an illegal dev. 

e) Acomma is missing between IN and MAST. 
f} The-dev specification is missing. 

h) Missing right parenthesis. 

j) INIT cannot be abbreviated. 


Statement | in the preceding question is valid 
since a variable may be used as a data file 
name. How can the data file name be varied 
during each run without changing the program? 


kK 


ANSWER: The statement TAPEID, A6,P will allow the 


operator to enter a six-character file name 
whenever the program is run. 


XMIT 


To read or write a record, the transmit data statement is used. Its 
general form is: 


XMIT (channel, record, 
(required) (required) 


end of file label) 
(only for input file) 


Examples of the transmit-data statement are below: 


a) XMIT(1,OUTBUF) 
b) XMIT(2,INBUF, EOF) 


a. Assuming channel | has been previously INITialized for out- 
put, statement a would transfer the contents of RECORD 
OUTBUF to channel 1. 


b. | Assuming that channel 2 has been previously INITialized for 
input, statement b would transfer data into RECORD INBUF 
from channel 2. 


36. QUESTION: What is accomplished by the following DIBOL 
Wee Se | 


START 

RECORD INBUF 
INA, A10 
INB,Aé 
INC, A6 

RECORD 
DATE, A8,P 


PROC 
INIT(2, IN, ‘INFILE!, 14) 
BEGIN, XMIT(2, INBUF, EOF) 
GO TO BEGIN 
EOF, FINI (2) 
STOP 
END 


RK 


ANSWER: When the program is run, the terminal will 
output ENTER DATE and wait for the operator 
to input an eight-character date (note the P 
option on data-item DATE). Channel 2 will be 
initialized and all records will be read from 
channel 2 into the area assigned to RECORD 
INBUF; after all records are read, the program 
will transfer to end-of-file routine (EOF) in 
which channel 2 is rewound, and then the 
program will stop. The END statement and 
STOP statement are optional. 


NOTE 


If the BEGIN statement were BEGIN, XMIT(2, INBUF) an error 


message is output when an end-of-file occurs. 


It is also possible to XMIT partial records. In the previous example 
assume that the first 10 characters from each input record would be 
written onto the fine printer. The statement would look like: 


XMIT (6, INBUF (1 ,12)) 


and would be added after the BEGIN statement. The character 
count of a record is contained in its first two characters. To output 
a partial record of 10 characters, the program must specify the first 
12 characters. This character count is generated automatically by 
the COMPiler and does not interfere with the first field in a record. 


37. 


38. 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


FINI 


What is the function of the FINI statement? 


REK 


The FINI is a close file statement and must 
refer to a previously INITialized file, For 
output files, an end-of-file mark is written 
onto the file and the file is rewound. 


What is accomplished by statements 1 through 
4 in the following exampie? 


START 

RECORD ABC 
A, A10 
NUMS, D15 
BUF,A100 


, BUF (56,70 
, ABC= 


RON — 


Statement 1 sets the ten character field A to 
spaces. 

Statement 2 sets the 15 character field NUMS 
fo zeroes. 

Statement 3 sets the characters 56 through 70 
of field BUF to spaces. 

Statement 4 sets the record ABC to spaces. 


An attractive feature of the DIBOL language is the ability to 
reference characters within a field. The notation BUF (56, 70) 
allows the programmer to reference characters within a data element 


without assigning a specific data name. The general format to 
accomplish this is: 


Data name (starting character position, ending character position) 


39. QUESTION: What would be accomplished by statements 1 
and 2 in the following example? 


START 
RECORD B 
NUMS, 10D2 
BI, 5A6 
PROC 
1 »NUMS (5)= 
2 ,BI (4)= 
BRK 
ANSWER: Statement 1 zeroes the fifth element of the 


array NUMS. 
Statement 2 sets the fourth element in the array 
Bl to spaces. 


This notation is called subscripting. It allows the programmer to 
reference a specific data element of an array. This form of sub- 
scripting must be a positive non-zero number, data name, or 
expression. The data name option is called variable subscripting. 
For example: 


START 

RECORD 
NUMS, 10D2 
A,DI 

PROC 

A=5 

NUM (A)= 


2-16 


This will accomplish the same as NUM(5)= which is in the previous 
example. 


NOTE 


An entire array cannot be referenced, only a single element within 
an array. However, it is possible to reference an entire array by 
redefining the array, using RECORD,X (overlay). For example: 


RECORD 

NUMS, 5D2 
RECORD, X 

NUMSI ,D10 
PROC 

S1, NUMSI= 


This will set the entire array of NUMS to zero. 


In summary the Clear Data Statements have the foilowing formats: 


Destination field = e.g., A= 
Destination field (subscript) = e.g., A(4)= 
or A(B)= 
or A(51,71)= 


ALPHA=ALPHA 


Another type of data manipulation is the move-alphanumeric- 
variable statement. It takes the general form: 


alpha field = alpha field 
(destination) (source) 


This allows one alpha field to be moved to another alpha field. If 
the source is shorter than the destination, the result is left-justified 
with the right-most characters undisturbed. If the source is longer 


than the destination, the result is left-justified and the right-most 
characters are not moved to the destination fieid. 


40. QUESTION: What is the value of A in the following example, 
after the move has been executed? 


START 
RECORD 


PROC 


KKK 


ANSWER: Variable A now has the value FGHDE. The 
source is shorter than the destination field. 


The right-most characters are undisturbed. 


Al. QUESTION: What is the value of NAME in the following 


example? 
START 
RECORD A 
NAME,A4,'FRED' 
NAME] ,A7,'JOHNSON' 
PROC 
NAME=NAME1 
ka 


ANSWER: NAME now has the value of JOHN. 


NOTE 
While the receiving field is changed (destination), the sending 


(source) field remains unchanged, so NAME] still has the value 


JOHNSON. 


In review, the general format of move alpha to alpha data element 


Alpha field = alpha field 
(destination) (source) 


DECIMAL=DECIMAL or EXPRESSION 
Statement 


Another form of data manipulation is moving a decimal expression to 
a decimal field. The general format for this expression is: 


decimal field = arithmetic expression 
(destination) (source) 


The arithmetic expression may be any expression with decimal ele- 
ments, subscripted data elements, constants, and the operators plus 
(+), minus (-), multiply (*) and divide (/). The contents of paren- 
theses are performed first, division and multiplication next, followed 
by addition and subtraction. The destination field would be right- 
justified after the move. Beiow is an exampie: 


START 
RECORD 

QORDER, D4, 0002 

UCOST, D4, 0200 

ECOST,D10 

X,D2, 04 

Y , 5D3, 000,007, 100, 025, 023 
PROC 


ECOST=UCOST*QORDER 
X=XH 

Y (1J=Y (X)#(25*Y (2)+Y (3))/Y (4) 
X=Y (3)+Y (4) 


bhWwhN- 


Statement 1) 


Statement 2) 


Statement 3) 


Statement 4) 


42. QUESTION: 


ECOST is calculated by multiplying UCOST and 
QORDER. In the above example, the answer would 
be: ECOST=0000000400. The result is right- 
justified in ECOST with the leading two characters 
set to zero. 


The new value of X shall be X+] (answer, X=05). 


The first element in array Y will be equal to the 
fifth element in array Y(X=5), plus the following 
quantity: 25 multiplied by the second element in 
array Y plus third element in array Y, the result 
of this multiplication and addition is divided by 
fourth element in array Y. The answer would be: 


Y (1) = Y (05) + (25 * Y(2) + Y(3))//Y (4) 

Y (1) = 023 + (25 * 007 + 100)/025 

Y (1) = 023 + (275)/25 

Y (1) = 023 + O11 

Y (1) = 034 

X is set equal to 25, If the destination field is too 


small to contain the source field or source expression, 
the high order digits are lost. 


In the following expression, explain the items, 
i.e., decimal field, subscripted field, con- 
stants, and the operators, plus, minus, 
multiply, and divide. 


X=Y (3)+Y (2)+66* (13-Z)/2 
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ANSWER: 


Subscripted variables are Y(3), Y(2); decimal 
variable is Z; constants are 66, 13, 2; the 
arithmetic operators used are +, *, -, /. 


NOTE 


The words variable and field can be used interchangeably. 


43. QUESTION: 


ANSWER: 


44, QUESTION: 


ANSWER: 


Is the expression X=Y (2) equal to X=Y*2? 


KKK 


No. Y(2) is a subscripted data element de- 
noting the second element of an array with the 
name Y. The expression X=Y*2 is the equiv- 
alent of multiplying Y times 2 and storing it 
in X. 


What is the expression which would accomplish 
the following? 


a) Take a number X and add it to the second 
element in an array named K. 


b) Take the result of that operation and 
divide it by 145 and store it in M. 


M=(K + K (2))/145 


If X + K(2) were not in parentheses, K(2) 
would be divided by 145 before adding X. 


In summary, the decimal to decimal move has the general format of: 


decimal field = arithmetic expression 


A=A+B/C 
A=B 


Decimal to Alpha 
Alpha to Decimal 


The two forms of converting from one data type to another are: 
a) Decimal field = alpha field 


b) Alpha field = decimal field or decimal expression and an 
optional format. 


45. QUESTION: — In the following example, data fields are 
described in both aiphanumeric and decimai 
formats. Convert TOT from decimal to an 
alpha format of corresponding length and store 
in Al; and convert NUM fo its decimal format 
of corresponding length and store in Bl. 


START 
RECORD A 

NUM, A6 

AI, Aé 
RECORD B 

TOT, D6 

B1,D6 
PROC 

K*K* 


ANSWER: Al=TOT (converts decimal to alpha) 


BI=NUM (converts alpha to decimal) 


The result of the conversion is always stored in the destination field 
(the expression located to the left of the equal sign). The decimal- 
to-alpha conversion is always right-justified with leading spaces, if 
needed. If the destination field is too small, high order characters 
are lost. The alpha-to-decimal conversion is also right-justified 


with leading zeroes, if needed. If the destination field is too 
smali, high order characters are lost. 


46, QUESTION: What would be the contents of BI] and Al 
after the following conversions? 


START 
RECORD A 
COST, D4, 9999 
A1,D5 
RECORD B 


| 
NUM, A6, '67891 2! 
BI, Aé 
PROC 
BI=COST 
AI=NUM 


KKK 


BI=COST (converts decimal to alpha). BI 
would contain 9999 right-justified with two 
leading blanks. AI=NUM (converts an alpha- 
numeric number to decimal). Al would contain 
78912; the high order character is lost. 


ANSWER: 


Decimal to Alpha with Format 


In business data processing, it is frequently desirable to output 
decimal information with imbedded commas, a decimal point -and 

(if needed) a minus sign. For example, -34,259.00 is easier to read 
than -3425900. DIBOL makes it possible to accomplish the format- 
ting of decimal information during the conversion from decimal-to 
alpha format. The general form of conversion is: 


alpha field=decimal field or decimal expression, format 


For example, if B=125677700 (decimally formatted), the expression, 
A=B, '-X,XXX,XXX.XX' will move B to A and cause A to look like 
this: 


1,256,777 .00 with no minus sign, since the number is greater than 
zero. A must be defined as an A13 to hold a full nine-digit negative 
number. 


47. QUESTION: For B=4432567 - (assume two decimal places); 
what would the conversion instruction look 
like? 


KK 


ANSWER: A=B'-XX, XXX .XX' or "XX, XXX .XX-' 


(-44, 325.67) (44,325.67-) 


The minus sign in the edit format can be either on the left or on the 
right. If the decimal value is positive, the sign will appeor as a 


blank. 


48. QUESTION: Since commas are inserted only if the corres- 
ponding comma has a significant digit to the 
left, if B=-311, what would be the value of A 


after the following? 


A=B, '-X,XXX, XXX XX! 


RK 


ANSWER: Where b signifies a space, A would be equal to 


bbbbbbbbb3.11. When a decimal field is 


converted, it is right-justified. 
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49. QUESTION: What is output to the terminal by the following 


program? 
START 
RECORD A 
Al,A7 
A2,A8 
A3, All 
RECORD 
NUM,D6, 100000 
B1,A7,'CREDIT wa ' 
B2,A11,'TO DIGITAL' 
PROC 
Al=B1 
A3=B2 
A2=NUM, 'X, XXX .XX' 
XMIT (8,A) 
KKK 


ANSWER: CREDIT 1,000.00 TO DIGITAL 


Most printing characters on the line printer or terminal can be used 
in a format string; but the following characters have a special 
meaning: 


X Each X represents a digit and leading zeroes are auto- 
matically. suppressed. 


- If a minus sign is the first or last character in a format 
statement, a minus sign is inserted when a number is 


negative. 
. _ Inserts a period and zeroes are no longer suppressed. 
, Inserts a comma if there are significant digits to the left. 


Z Suppresses a digit position and right-justifies it. 


* If an asterisk is the first character of a format, it replaces 
all leading zeroes. 


Examples: 


NUM, D3, 987 
Al,A3 
Al=NUM, 'XXZ' 


result is: Al=b98 (where b signifies a blank) 


NUM, D5, 12345 
PAY, A9 
PAY=NUM, '*X, XXX .XX! 


result is: PAY=***123.45 


The remaining characters are treated as insertion characters. For 
example: 


DATE=102370 

Al=DATE, 'XX/XX/XxX' 

result is: Al=10/23/70 
or 

NUM=987 

Al=NUMN, 'XXX0! 

result is: A1=9870 


When using a comma, period, slash, minus sign, or any other 
notation, it must be counted as a character position. In the above 
example using slash, Al must be defined as an eight-character 
alphanumeric field. 
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ANSWER: 


In summary, 
formats: 


in the following example, what is th 
t L 
f ‘ 


START 
RECORD A 
Al, A8 
A2,A4 
A3,A4 
A4, All 
FMT, A4,'X XX! 
RECORD B 
DATE, D6, 103070 
NUM, D3, 123 
COST, D3, 999 
TOT, D12, 000007894211 
PROC 
a) AI=DATE, 'XX/XX/XX' 
b) A2=NUM, 'XXZ! 
c) A3=COST, 'XXX0! 
d) A4=TOT,'=XXX,XXX XX*! 
e) A4=TOT,'-XXX,XXX .XX! 
f) A2=NUM, FMT 


KKK 


Statement a) Al1=10/30/70 
Statement b) A2=bb12 
Statement c) A3=9990 


A4=*78,942.11* (an asterisk 
which is not the first character 
in a format will act as an in- 
“sertion character and afso 
replace leading zeroes.) 
A4=bb78, 942.11 

A2?=1 .23 


Statement d) 


Statement e) 
Statement f) 


the data manipulation statements have the following 


Format Example 
Clear Field= A= 
Alpha Field=Alpha Field A=B 
Decimal Field=Arithmetic Expression A=B*C/D 
Decimal=Al pha Al=NUM 
Alpha=Decimal BI=TOT 
Alpha=Decimal, format A=B, '-XX,XXX.XX' 


Note that subscripting can be used in any data manipulation state- 
ment. 


In most of the examples in which subscripting was used, it was done 
by referencing specific elements of an array, i.e., NUM (2. It 
is often desirable to change the value of the subscript. This is 
done by using a data name for the subscript. For example: 


START 
RECORD C 
C1,10A5 
RECORD 
A,D2 
B,A5,'DIBOL' 
PROC 
A=] 
C1 (AB 


This places the value of DIBOL in the first element of the array Cl. 
If all elements of the array were to be set to the value DIBOL, the 
procedure section would look like: 


PROC 
A=1 
BEGIN, C1(A)=B 
A=A4 
IF (A.LT.11) GO TO BEGIN 
STOP 
END 
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NOTE 


A powerful feature for the data manipulation statements is that 
record names can be used. For example: 


START 
RECORD AAA 
A1,A80 
RECORD BBB 
B1,A80 
PROC 
AAA=BBB 
STOP 
END 


Statement AAA=BBB is valid. A record name can be moved to 
another record name. Record subscripting is also legal. For example: 


START 
RECORD AAA 
A1,A80 
RECORD BBB 
BI, A80 
PROC 
AAA(1)=AAA(2) 
STOP 
END 


GO TO 
The next type of statement is the GO TO statement. 
51. QUESTION: From the previous section (and using Foldout #3), 


what is the purpose of the basic GO TO state- 
ment? 


ANSWER: This statement causes the program control to ' 
branch to the executable statement in the 
procedure section with the specified labe!, and 


has the form: 


GO TO label 


The label must be a statement label assigned to the statement in, the 
PROCedure section where control is to be transferred. It cannot be 
a data name. A data name refers to an element which has 
defined in the data section. 


een 


52. QUESTION: _ Is the following use of GO TO correct? 


START 

RECORD A 
Al ,A90 

PROC 
INIT (2, 1,'FILEXX') 
XMIT (2,A) 
GO TO START 
FINI (2) 
STOP 

END 

KEK 


ANSWER: No. START is not an executable statement. 
Executable statements are found only in the 


procedure section of the program. 
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53. QUESTION: Is the following use of GO 


START 
RECORD B 
Bl, A50 


PROC 
INIT (2,1, 'HOHUM', 6) 


LOOP, XMIT (2, B, EOF) 


XMIT (8, B) 
GO TO LOOP 
EOF, — FINI (2) 
END 
R*K* 


ANSWER: Yes, LOOP is a label associated with a state- 
ment in the procedure section. LOOP is nota 


data name. 


Another type of GO TO statement is the computed GO TO. It has 


the form: - 


GO TO (label 1, label 2, ......, label n), decimal 


expression 
For example: 
GO TO (LOOP, RUN, STOPS), KEY 


This statement reads "If decimal variable named KEY is equal to I, 
then go to LOOP; if it is equal to 2, then go to RUN; and if it is 
equal to 3,go to STOPS. if the variable KEY is not equal to 1, 2 
or 3, control passes to the next statement in sequence. There can be 
any number of labels in a computed GO TO statement. 


54. QUESTION: _ If NUM is equal to 2, what does the following 


accomplish? 


GO TO (XI, X2, X3), NUM 


REE 


ANSWER: 


The program branches to the statement labeled 
X2. 


55. QUESTION: In the above example, if NUM is equal to 6, 


what happens? 


KKK 


ANSWER: 


Control passes to the next statement in 
sequence. 


An IF statement transfers control on the basis of the results of an 
expression. The form of the statement is: 


IF (expression 1 .rel. expression 2) statement 


The data items for comparison may be constants, variables, or 
arithmetic_expressions. . They_must.be. both alphanumeric or both. ........ 
decimal. The relations are: 


EQ, equal 

NE. not equal 

LT. less than 

LE. less than or equal 
sGTe greater than 

sGE. greater than or equal 
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NOTE 


The format requires a period immediately before and after the two 
character relation codes. If an expression is an alphanumeric 
constant, it must be enclosed in apostrophes. 


The statement is executed if the relation is true. Statement is one 
of the following: 


GO TO LABEL 
CALL LABEL 
RETURN 

ON ERROR 
STOP 

TRACE 

NO TRACE 


(Options which are unfamiliar will be explained later in this section.) 


56. QUESTION: Write an equivalent DIBOL statement for the 
following. If NUMB is less than or equal to 


46, then go to the statement labelled LOOP. 


KKK 


ANSWER: IF (NUMB .LE. 46) GO TO LOOP 


In a decimal comparison, the shorter of two fields is left zero filled 
before the comparison. 


57. QUESTION: Write a DIBOL statement to do the following: 
If DESC is equal to the alpha constant HAPPY, 


terminate program execution. 


REE 


IF (DESC .EQ. 'HAPPY') STOP 
NOTE 


Two fields to be compared may be of unequal length. The longer of 
two Alpha fields is shortened on the right to the same length as the 
shorter field. 


ANSWER: 


58. QUESTION: 


ANSWER: 


Is the following use of the IF statement correct? 


START 
RECORD 
NUMB, D3, 223 
ALPH, A3, 'ZAP' 
TOTL, D3, 999 
PROC 
BEGN, NUMB = NUMB+I 
IF (NUMB .EQ. ALPH) TRACE 
STOP 
END 
Rk 


Use of the IF statement is incorrect. NUMB 
(which is a decimal item) cannot be compared 
with ALPH (which is an alpha item). A com- 
piler error will result. 


CALL 
RETURN 


When the same coding is used several times in a program, it may be 
written once as a subroutine. To use the subroutine write: 


CALL label 


The CALL statement does two things. It saves the address of the 
statement following the CALL in the RETURN statement of the sub- 
routine and then performs an unconditional branch to a subroutine. 
The return from a subroutine is to the next statement after the CALL 
statement. This is accomplished by the RETURN statement. For 


example: 


PROC 
CALL LIST 
scontrol returns here 


LIST, B=B+1 
RETURN 


NOTE 


statement, when executed, will cause a Run-Time error. 


59. QUESTION: 


ANSWER: 


Control can pass directly to a subroutine. However, its RETURN 


SUBI, 


EXIT, 
SUB2, 


Is the following correct use of the subroutine? 
START 
PROC 
CALL SUBI 


X=X+] 
IF  .NE. 3) GO TO EXIT 
CALL SUB2 


RETURN 
X=X*2 
RETURN 

KKK 
The example is correct. SUB2 is an example of 
a nested subroutine, called by SUB]. SUBI 
calls SUB2, which multiplies the variable X by 
2 and returns to SUB], which returns to the in- 
struction following the original CALL statement. 
If a subroutine is entered other than by a CALL 
it is treated in sequential coding, not as a 
subroutine. 
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STOP 


STOP causes the program to terminate its execution and to return 
control to the DIBOL Monitor. For example: 


START 
BLOCK A 
Al, Al0 
A2, A2 
RECORD B, X 
BI, Al2 
PROC 
INIT (2, IN, 'AFILE', 3) 
LOOP, XMIT (2, A, EOF) 
XMIT (8,B) 
GO TO LOOP 
EOF, FINI (2) 
STOP 
END 


This example would print each record from logical unit 3 onto the 
terminal until end-of-file was reached. At that time, control would 
transfer to EOF where logical unit 3 would be closed. The program 
would then terminate by transferring control to the DIBOL Monitor. 
In this example STOP is optional since it is physically the last 


On Foldout #3 is a listing of a complete DIBOL-coded program. 
Examine it, and answer the following questions. 


60. 


QUESTION: 


ANSWER: 


From statements 15 and 17, what is the function 
of INBUF? 


KK 


INBUF is the input record into which all data 
from channel 1 is stored. 
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él. 


62. 


63. 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


From statements 16 and 20, what is the function 
of the block named OUTBUF? 


KKK 


It is the output record from which all records 
are written by channel 2. 


What is the purpose of the X in describing 
OUTBUF ? 


KK 


The five fields of OUTBUF occupy the same 
area of computer memory as the five fields of 
INBUF (the fifth field of INBUF is not 
labelled. 


Which statement separates the data section 
from the procedure section? 


KKK 


The PROC statement. 


Why should the input record occupy the same 


area of computer memory as the output record? 


KEK 


With the exception of the field named ECOST, 
the output records contain the same information 
as the input record. Thus, not only is computer 
memory saved, but many more instructions 
needed to move fields from one buffer to 
another are eliminated. 


65. QUESTION: ECOST is defined as decimai and ihe fieid a 69. QUESTION: There doesn't seem fo be any way for the pro- 
it overlays is alphanumeric. Is this valid? gram to execute statements beyond statement FOLDOUT #3 
el 21 (an unconditional branch). How is the 
statement labelled EOF executed? SAMPLE PROGRAM #2 
ANSWER: Yes. A decimal field may be defined as alpha- ee 
numeric (and vice versa). 
ANSWER: Statement 17 carries the solution. It says START il 
"Read a record from channel 1 and store the RECORD —INBUF 32 
66. QUESTION: Put statement number 18 into your own words. information in the record labelled INBUF. STOCKN, D4 73 
sit If there are no more records, go to the in- DESC, A25 74 
struction labelled EOF." UCOST, D5 Ae) 
AINSWER "Nf data name STOCKN is tess than 1000, then QORDER, D4 76 
go to the instruction labeled LOOP. Other- , A? i7 
wise, execute the next sequential instruction." 70. QUESTION: How do we know statement 17 is a read RECORD OUTBUF,X 78 
statement? (two reasons) Al, D4 9 
A2, A25 310 
KEK 
67. QUESTION: In the example program, STOCKN refers to a A3, DS Aaa 
stock number, DESC refers to an item descrip- ANSWER: First, statement 15 INITializes channel 1 which A4, D4 712 
tion, UCOST refers to unit cost of the item, contains a file called 'ITEM' as an input de- ECOST, D9 713 
QORDER is the quantity ordered, and ECOST vice; second, only read uses of the XMIT PROC 2 i14 
denotes the extended cost. Describe in your statement have three parameters (channel, INIT (1,1N,"ITEM', 4) 715 
words the operation of this program (the logic). record, and end-of-file routine name); write INIT (2, OUT, 'ITEM', 12) 716 
pipe statements have only two parameters (channel LOOP,  XMIT (1, INBUF, EOF) 17 
and record). IF (STOCKN .LT.1000) GO TO LOOP 18 
ANSWER: The program reads records containing a stock ECOST=UCOST*QORDER 19 
number, item description, unit cost, and XMIT (2, OUTBUF) 720 
quantity ordered, It skips records which have GO TO LOOP 72] 
a stock number less than 1000. Output records EOF, FINI (2) 722 
are generated with the same information as the FINI(1) 723 
input with an additional item -- an extended STOP 724 
cost which is the product of the unit cost and END 
the quantity ordered. 
The program reads records containing a stock number, item descrip- 
tion, unit cost and quantity ordered. It skips records which have a 
68. QUESTION: — Put statement 16 into your own words. stock number less than 1000. Output records are generated with the 
eK same information as the input with an additional item -- an extended 
ANSWER: INITialize channel 2 as an output device which cost which is the product of the unit cost and the quantity ordered. 
will write a file called ITEM on logical unit 12. 
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START 
RECORD 


RECORD 


PROC 


LOOP, 


EOF, 


END 


EXPLANATION OF FOLDOUT #3 
INVENTORY PROBLEM 


INBUF 
STOCKN, D4 
DESC, A25 
UCOST, D5 
QORDER, D4 
Ad 
OUTBUF,X 
Al,D4 
A2,A25 
A3,D5 
A4,D4 
ECOST, D9 

2 


INIT(1, IN, ‘ITEM’, 4) 
INIT(2, OUT, 'ITEM', 12) 
XMIT (1, INBUF , EOF) 


IF (STOCKN .LT .1000) 
GO TO LOOP 
ECOST=UCOST*QORDER 


XMIT (2, OUTBUF) . 


GO TO LOOP 
FINI(2) 


FINI(1) 
STOP 


;input record 

;Stock number, 4 digits 
;Description, 25 characters 

;Unit cost, 5 digits 

;Quantity ordered, 4 digits 
;Unused field 

;A redefinition of the input record 


-~ 


zExtended Cost, 9 digits 


;Begin Procedure Section, 2 mass storage 


ifiles will be open at one time 
jlnitialize file 1 as an Input device 
jlnitialize file 2, as an Output device 
;Read a record from channel 1, and 
ystore it in record INBUF 

zIf stock number is less than 1000, 
;read another record 

;Extended cost would be calculated 
;for STOCKN 1000 or over 


4yWrite the record OUTBUF onto __. 


;channel 2 

;Go to statement LOOP to read 
janother record 

;OUTBUF file is closed and EOF mark 
zis put at end of file 

z;INBUF file is closed 


;OUTBUF file will contain all stock 
jitems with a stock number of 1000 
zor over, with DESC, UCOST, 
;QORDER, and ECOST for each item. 
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INCR 


The INCR (increment) statement adds ones to a specified field and has 
the form 


INCR decimal field 
The next two statements are identical 


DECFLD=DECFLD+1 
INCR DECFLD 


Refer to statement 25 of Foldout #4 for another example. 


71. QUESTION: 


Given the following program which statements 
are invalid? 


START 
RECORD 
A,D4 
B,AS 
C,D3 
PROC 

a) INCRB 

b) INCRA 

c) INCR AtC 

d) C=INCRA 


RK 


ANSWER: Statement a ts invalid since vartable B is 
defined as alphanumeric. 

Statement b is correct. 

Statement c is invalid since expressions are 
not allowed in an INCR statement. 
Statement d is invalid since INCR cannot be 


part of a data manipulation statement. 
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Look at Foldout #4 and its explanation. This program contains 
samples of the remaining statements to be explained in this section. 


FORMS 


The FORMS statement is used to format line printer output. It may 
not be used with any other output device. It has the form: 


FORMS (channel, skip-code) 


Channel is the channel number associated with the line printer. The 
skip-code specifies the action to be taken: 


0 go to top of next page (skip to channel 1 
of the vertical forms control tape). 


1 - 4095 skip this number of lines. 

=] (LS8-E only) skip to channel 2 of the 
vertical forms control tape. 

-2 (LS8-E only) print enlarged characters for 


the next XMIT statement. Since charac- 
ters are twice their normal width only 66 
characters can be printed. 

For example: 
FORMS(66, 3) 

means skip three lines on the line printer; 
FORMS(6, 0) 

means skip to the top of the next page; 


FORMS (6, N) 


means perform the function specified by the value of N. 


72. QUESTION: In the following program, what is the result TRACE 


of each FORMS statement? NO TRACE 
START These statements are used to debug a program. They can be inserted 
RECORD anywhere in the PROCedure section. The form of the statement is: 
1,D2,20 
J,D2,03 TRACE 
PROC : 
INIT(3, LPT) : 
a) FORMS(3, 0) NO TRACE 
b FORMS(6,0 
“ Oe x When the TRACE statement is executed, program tracing is enabled 
ay. 4 FORMS(J, -3) until the execution of a NO TRACE statement. When enabled each 
j) FORMS(J*2 [+J-13) DIBOL statement which is executed causes the following line to be 
: printed on the line printer: 
aes AT LINE n 
ANSWER: Statement a will allow the line printer to skip 


where n is the source line number. If the statement is a data mani- 


to a new page. . . brs ay : . 
fie pulation statement, the value stored in the destination field is also 


Statement b will also allow the line printer to 


skip to a new page. The line printer may be printed: 
referred to as channel 3 since it was INITed 
as channel 3 and as channel 6 since no other ee 200 


device was INITed as channel 6. 

Statement c will skip three lines on the line 
printer. Variables or decimal expressions are 
allowed for the channel number of skip-code. 
Statement d is invalid. The skip-code is 


TRACing will not occur unless the program is RUN 
with the /T option (refer to the System Reference 
Manual for a more detailed explanation of this 


Statement e will skip 10 lines on the line 
printer : Indiscriminate placement of TRACE statements will 


The value of the first expression, J*2, is 6; cause excessive output on the line printer. To use 


th fF th p ion. IIS a TRACE statement properly, the problem area in a 
is 10, ea ie ee program should be determined and the TRACE/NO 


TRACE statements used only in the problem area. 
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73 


iwe 


QUESTION: 


What output + will result fror 


statement in the fallowin 


(line numbers) 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 


ANSWER: 


START 

RECORD 

ITEM, D5 

HOURS, D2 

SALARY, D5 

WAGES, D7 

PROC 
HOURS=40 
SALARY=300 
TRACE 
WAGES=HOURS*SALARY 
IF WAGES'.EQ .10000)NO TRACE 
HOURS=10 
IF (HOURS .EQ .10)GO TO NEXT 
NO TRACE 

NEXT, WAGES=HOURS* SALARY 

NO TRACE 
HOURS=20 
WAGES=HOURS* SALARY 
STOP 


EX 


AT LINE 0200 
001 2000 

AT LINE 0210 
AT LINE 0220 
AT LINE 0230 
AT LINE 0250 
0003000 

AT LINE 0260 


74, QUESTION: Which of the following are valid TRACE/NO 
TRACE statements? 


a) IF(A.GT.B) TRACE 
b) CALL TRACE 

c) NO TRACE 

d) GOTO TRACE 


KE 


ANSWER: 


Statement a is valid. 
Statement b will CALL subroutine TRACE 


enable TRACing. 
Statement c is valid. 


Statement d will GO TO a statement labelled 
TRACE, not enable TRACing. 


ON ERROR 


The ON ERROR statement is often inserted in a source program prior 
to a statement which, if in error when executed, would cause a 
return to Monitor. The form of this statement is: 


ON ERROR label 


where label is a statement in the PROCedure section where control 
is to be transferred when an error is encountered. An example of 
this statement is: 


ON ERROR FIX 
DECMAL=ALPHA 


® 


FIX, 


Refer to statement 17 of Foldout #4 for another example. The ON 
ERROR statement eliminates a return to Monitor for the following 
conditions: 


70% 


- division by zero; 


- in alpha to decimal conversion, a character other than 
0 to 9, plus, minus or space; 


- more than 15 digits in a decimal field used in a calculation 


(the field, of course, would have to be defined as DI6, 
D17, or larger); 


- an end of file label was not specified in an XMIT statement 


and the end of the input file was reached; 

- input record was greater than its specified size; 

- no file was specified in a RUN command to satisfy an 
INIT(SYS) statement 


- direct access of a record beyond the end of a file. 


QUESTION: 


Which of the following statements need an 
ON ERROR statement to precede them to 
prevent program termination? 


Assume the following data section 


START 

RECORD 

DECMAL, D20, 00000000000000050000 
1,D5 

ALPHA,A5,'ABCDE' 

BETA, A5, '12345! 

PHI,A3, ‘+25! 

WORK, D8 


~7D5,150 


WORK=J/I 
WORK=I/J 
WORK=DECMAL*2 
I=PH I 

I=ALPHA 

I=BETA 


KKK 
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76. 


ANSWER: 


QUESTION: 


ANSWER: 


Statement a needs ON ERROR because of 
division by zero. 

Statement b does not need ON ERROR. 
Statement c does not need ON ERROR because 
DECMAL does not contain a value exceeding 
15 digits. 

Statement d does not need an ON ERROR 
since a plus sign is a valid character in alpha 
to decimal conversion. 

Statement e needs an ON ERROR statement 
since none of its characters are valid in alpha 
to decimal conversion. 

Statement f does not need an ON ERROR 
statement. 


What happens in Sample Problem #2 if state- 
ment 17 is: 


LOOP, XMIT(1, INBUF) 


KK 


The program will run properly until the end of 
file is reached. At that time, the program 
will return to Monitor because there is no end 
of file label in the XMIT instruction. This 
problem can be avoided by leaving statement 
17 in its original form or by preceding state- 


~ ment 17 with an ON ERROR statement, = 


ACCEPT 


The ACCEPT statement stores input from the keyboard in a specified 
alpha field or record as well as the decimal equivalent of the 


terminating character. It is used mainly with the DISPLAY statement. 
It has the form: 


ACCEPT (terminating character, alpha field) 


where the terminating field is usually defined as a two digit field 
and the alpha field contains the keyboard input. ACCEPT is often 


used when certain action is to be taken depending upon the value of 
the terminating character. The values for the terminating characters 


can be found in Table 1-1 of the System Reference Manual. An 
example of this statement is: 


DECMAL, D2 
ALPHA, A10 


ACCEPT (DECMAL, ALPHA) 


Another example of this statement is statement 29 of Foldout #4, 


77. QUESTION: 


ANSWER: 


How would you write a program which will 
ACCEPT 15 alphanumeric characters? If 
CTRL/U, a terminating character with a 
value of 21 is typed, restart ACCEPTance of 
input. Use TCHAR as the terminating char- 
acter and KBD to store keyboard input. 


KER 


START 
RECORD 
TCHAR, D2 
KBD,AI5 
PROC 
LOOP, ACCEPT (TCHAR, KBD) 
IF (TCHAR .EQ .21)GO TO LOOP 
STOP 
END 


| 78. QUESTION: How can the ACCEPT statement in the preceding 
problem be modified to ACCEPT only 10 char- 
acters? (Show two ways.) 


RK* 


ANSWER: LOOP, ACCEPT(TCHAR, KBD(I , 10)) 
or define KBD as an A110 field. 


DISPLAY 


The DISPLAY statement is used primarily with the VT05 terminal to 
display a message at a specified jocation on the screen. Any of 20 
rows or lines and 72 columns may be specified. The form of the 
statement is: 


DISPLAY (row, column, field) 


where row specifies the line and column specifies the column where 
field is to be displayed. The field may be a decimal constant, an 
alpha literal, an alpha variable or a decimal variable. The 
foiiowing decimai consianis or decimal variables perform a special 
function: 


0 = position the cursor at the row and column specified; 

1 = clear the scope from the row and column specified to 
the end of the screen and position the cursor at row 
and column; 

2 = clear the scope from the column specified to the end of 
the line and position the cursor; 

2 = sound the bell or beep and position the cursor. 


Any other decimal codes are meaningless. 
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79. 


80. 


QUESTION: 


ANSWER: 


QUESTION: 


How would the DISPLAY statements be 
written to do the following? 


a) Clear column 8 thru 72 of line 12 on the 
screen. 

b) Clear column 3 thru 72 of line 5 and clear 
lines 6 thru 20. 

c) Display the error message 'NOT 
NUMERIC! at the beginning of the last 
line. 

d) Ring the terminal bell. 

e) Clear column 6 thru 8 of line 20. 

f) Display the contents of the alpha field 
XYZ at line 1, column 1. 

g) Move the cursor to row I, column J. 


KEK 


a) DISPLAY(12,8,2) 

b) DISPLAY(5,3,1) 

c) DISPLAY(20,1,'NOT NUMERIC') 

d) DISPLAY(0,0,25) ;row and column could 
be any value but a 0 value for row will 
not reposition the cursor. 

e) This cannot be done with a DISPLAY 
command, The minimum that could be 
cleared is column 6 thru 72 of line 20. 
However, displaying spaces will work. 

For example: DISP LAY-(20,6; onin) 

f) DISPLAY(1,1,XYZ) 

g) DISPLAY(I, J,0) 


How would you write a program to do the 
following: 


a) Clear the screen, 
b) DISPLAY 'CLIENT NUMBER w' 
c) ACCEPT a 5 digit client number. 
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ANSWER: 


d) 


Verify that the digit is numeric when 
storing it in a five-digit field called 
TEMP. If incorrect, sound the beep, 
DISPLAY the error message NOT 
NUMERIC on the bottom line, wait for 
the operator to strike any key which 
indicates he understands the error and 
reenter the information. 

Since the number may be less than 5 
digits, right justify the number entered 
before DISPLAYing it. 


KK 


START 
RECORD 


TCHAR, D2 
CHAR, A5 
TEMP, D5 
ONE, Al 


PROC 
LOOP, DISPLAY(I,1,1) 


FIX, 


DISPLAY (1,1,'CLIENT NUMBER wu ' 
ACCEPT (TCHAR, CHAR) 

ON ERROR FIX 

TEMP=CHAR 

CHAR=TEMP 
DISPLAY(1, 15, CHAR) 

STOP 

DISPLAY (0, 0, 25) 
DISPLAY (20, 1, "(NOT NUMERIC') 
ACCEPT (TCHAR, ONE) 

GO TO LOOP 


READ 
WRITE 


The READ and WRITE statements allow direct access of a specified 
record. This record may be input from (READ) or output to (WRITE) 
a specified file. The statement has the form: 


READ (channel, record, record number) 
WRITE (channel, record, record number) 


where channel is a number from 1 to 15, record is a label previously 
specified in a RECORD statement, and record number is a constant, 

variabie or arithmetic expression specifying the record number to be 
read or written. For example: 


READ(5, RECRDA, 20) 
WRITE(K, REC, J~4) 


The first example will READ the 20th record from channel 5 into 
record RECRDA. The second example will WRITE REC as the J-4th 
record onto channel K. Refer to Foldout #4 for more examples. 


NOTE 


For a file to be accessed directly, it must be defined as an UPDATE 
file. For example: 


INIT(1, UPDATE, 'FILEA', 3) 


READ(t, RECRDA, 20) 


81. QUESTION: 


ANSWER: 


SIZE, 


How would you write a program which prints 
every 10th record on the line printer (assume 
the records are called RECA, are 50 char- 
acters long, are in FILEX in channel 3, 
logical unit 6, and that direct access will be 
used, 


START 
RECORD RECA 
ASO 


INIT(3, U, "FILEX', 6) 
LOOP, INCR LENGTH 

ON ERROR EOF 

READ (3, RECA, LENGTH*10) 
XMIT (6, RECA) 
GO TO LOOP 
FINI(3) 
STOP 
END 


LENGTH, 
EOF, 


FOLDOUT #4 
SAMPLE PROGRAM #3 


START 

RECORD ITEM 

STOCKN, D4 

DESC,  A25 

UCOST, D5 

QORDER, D4 

ECOST, D9 

LINECT, D2,50 

REC, D5 

TCHAR, D2 

RECORD KBDIN 
CHAR AS 
PROC 1 
INIT (1, UPDATE, ITEM", 12) 
LOOP, CALL GETKBD 
ON ERROR MESAGE 
REC= CHAR 
NO TRACE 
IF(REC .EQ .100) TRACE 
READ(I, ITEM, REC) 
IF(LINECT .LT .50) GO TO PRINT 
FORMS(6,0) 
LINECT = 
PRINT, INCR LINECT 
XMIT (6, ITEM) 
GO TO LOOP 
MESAGE, DISPLAY (2, 1,!NOT NUMERIC’) 
ACCEPT(TCHAR, KBDIN) 
GO TO LOOP 

GETKBD, DISPLAY(I,1,1) 

GETA, | KBDIN= 
ACCEPT(TCHAR, KBDIN) 
IF(TCHAR.NE.21)RETURN = ;21 = CTRL/U 

DISP DISPLAY (1,1, 2) 

GO TO GETA 


Ne Ne Ne Ne ee Ne Ne Ne 
COON AOOaARWN 


. =e 


EXPLANATION OF FOLDOUT #4 
DUMP SPECIFIED INVENTORY RECORDS 


START 
RECORD ITEM ;Input record 
STOCKN, D4 iStock number 
DESC, A25 ;Description 
UCOST, D5 ;Unit cost 
QORDER, D4 ;Quantity on order 
ECOST, D9 ;Extended cost 
RECORD ;Working storage 
LINECT, D2,50 ;Number of lines printed on current page 
REC, D5 ;Record number of record to be printed 
TCHAR, D2 ;Terminating character in an ACCEPT 


jcommand 
RECORD KBDIN ;5-character record for reading record no. 
CHAR, A5 
PROC | ;A maximum of 1 mass storage device will 
jbe open at the same time 
INIT(1, UPDATE, 'ITEM',12) — ; Initialize a file called ITEM found on 
jlogical unit 12 for direct access 
;Get the record number 
:Go to MESAGE if the next statement is 
jin error (such as CHAR containing non- 
snumeric characters) 
;Move CHAR to. the numeric field REC 
;Disable TRACE mode (it is initially 
;disabled) 
IF(REC .EQ .100)TRACE ;Enable TRACE if record number 100 
READ(1, ITEM, REC) ;Read record REC from ITEM file 
IF(LINECT .LT .50) GO TO PRINT 
FORMS(66,0) ;Skip to new page 
LINECT = ;Clear LINECT 
PRINT, INCR LINECT jAdd 1 to LINECT 
XMIT (6, ITEM) ;Print specified ITEM record on line 
sprinter 
;Get next record number 


LOOP, CALL GETKBD 
ON ERROR MESAGE 


REC=CHAR 
NO TRACE 


GO TO LOOP 


;Skip to new page every 50 lines 
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MESAGE, DISPLAY (2,1,'NOT NUMERIC') 
jterminal 
;Wait for operator response indicating 
she has acknowledged the error message 


;Display error message 


ACCEPT (TCHAR, KBDIN) 


GO TO LOOP ;Get next record number 
GETKBD, DISPLAY(1,1,1) ;Clear the screen 
GETA, KBDIN= ;Clear record 


ACCEPT(TCHAR, KBDIN) ;Accept up to 5 characters; accept is 
;terminated when 5 characters are typed 
zor when a terminating (non-printing) 
;character is typed 

;lf terminating character is not CTRL/U, 
return to main program 


;lf CTRL/U, clear row 1 and 
;accept input again 


IF (TCHAR .NE .21 RETURN 


DISPLAY (1,1, 2) 
GO TO GETA 


The program accepts a record number from the keyboard. If the 
record number is not numeric an error message is displayed and the 
program waits for the operator to depress a terminating key before 
restarting. When the record number is numeric, that record is read 
directly from a file called ITEM and then printed on the line printer. 


SECTION SUMMARY 


You have completed an in-depth discussion of the DIBOL language. 
If you do not understand DIBOL clearly, by all means study the 
section a second time. 


In summary, the procedure section has the following instructions: 


1) Initialize File Device statement (as input or output). 


INIT (channel, dev, data-file-name, unit) 
Example: 

INIT(2,1N,FILEX',3) 

INIT (4, KBD) 


2) Transmit statement (Read-from or write-into file). 


General form: 


XMIT (channel , record, end-of-file label for 
input files) 


Example: 
XMIT (2, INBUF, EOF) Read from 
XMIT (1, OUTBUF) Write into 


3) Close File statement. 


General form: 
FINI (channel) 
Example: 


FINI (2) 
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4) 


6) 


Data Manipulation statement. 


General form: 


destination field=source field or expression 


a) Clear data (destination field = ) 

b) Move alphanumeric data (alpha data=alpha data) 

c) Compute decimal data (decimal data= decimal 
expression) 

d) Convert alpha to decimal (decimal data=alpha data) 

e) Convert decimal to alpha (alpha data=decimal data) 

f) Convert decimal to alpha, formatted (alpha data= 
decimal data, format) 


GO TO statement (program control transfers to statement 


label). 


General form: 
GO TO statement label 
Example: 
GO TO LOOP 
Computed GO TO statement (program control branches to 
labell if the decimal data element is 1, etc.). 


General form: 


GO TO (labell ,label2,..., labeln), decimal 
data element 


Example: 


GO TO (TAX, COST, PRICE), A2 


7) 


IF statement (if the relation between the expressions is 
true, control goes to statement). 
General form: 
IF (expression] .rel .expression2) statement 
Examples: 


IF(A.EQ.B) GO TOC 

IF(A .NE.1) TRACE 

IF(LINE .GT .50) CALL HEADNG 
IF(1.LT.1) RETURN 


Subroutine CALL statement (control goes to statement 
label). 
General form: 
CALL statement label 
Example: 
CALL COST 


RETURN statement (program control returns to the state- 
ment after the last CALL). 


General form: 


RETURN 


STOP statement (causes program to terminate and transfers 
control to the Monitor). 


General form: 


STOP 
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11) INCR statement (adds 1 to a specified field). 


General form: 


INCR decimal field 


Example: 


INCR DECFLD 
12) FORMS statement (formats line printer output) 


General form: 


FORMS(channel, skip-code) 


Examples: 
FORMS(6,0) 
FORMS(6, -2) 
FORMS(I,10) 
13) TRACE statement (enables program tracing for debugging). 


General form: 


TRACE 
14) NO TRACE statement (disables program tracing). 


General form: 


NO TRACE 


15) ON ERROR statement (prevents return to Monitor for 
certain run time error conditions). 
General form: 


ON ERROR statement label 


Example: 
ON ERROR EXIT 
16) ACCEPT statement (used to get input from the terminal 
when retention of the last character typed is desired). 


Genera! form: 


ACCEPT (terminating field, alpha field) 


Examples: 


ACCEPT(TCHAR, ALPHA) 
ACCEPT (TCHAR, ALPHA(I, 10)) 


17) DISPLAY statement (used to put output on the VT05 at a 
certain row and column). 


General form: 


DISPLAY (row, column, variable) 


Examples: 
DISPLAY (1,1, 'MESSAGE') 
DISPLAY (I, J, 2) 
DISPLAY (1,8, ALPHA) 
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18) READ statement (allows a specified record to be read 
directly). 


General form: 
READ (channel, record, record number) 
Examples: 


READ(1 , RECNAM, 28) 
READ (4, RECNAM, REC) 


19) WRITE statement (allows a specified record to be written 
directly). 


General form: 
WRITE(channel, record, record number) 
Examples: 


WRITE(1, RECNAM, 33) 
WRITE(4, RECNAM, REC) 


SECTION 3 


A Programming Exercise 


T. QUESTION: On this page is the definition of a program 
you are to write. It is imperative you complete 
writing the program before you look at this 
author's solution. It is also important that you 
write the program during the same sitting in 
which you study the previous two sections, for 
the simple reason that prompt reinforcement 
(through application) is the only way to 
retain the thorough knowledge of DIBOL. 
Feel free to use Sections 1 and 2 as reference. 


YOU ARE TO WRITE A PROGRAM FOR THE ATHLETICS DEPARTMENT 
OF A COLLEGE. STUDENT RECORDS ARE STORED ON DECTAPE 
LOGICAL UNIT 15 IN A FILE CALLED 'STUREC', IN THE FOLLOW- 
ING FORMAT: 


STUDENT LAST FIRST CUMULATIVE SEX WEIGHT HEIGHT 
NUMBER NAME NAME GaPoA. (LBS) (FEET) 


THE COACH WANTS A LIST OF ALL MEN ON CAMPUS WHO HAVE 
A GRADE POINT AVERAGE ABOVE 85, WHO WEIGH OVER 170.00 
POUNDS, AND WHO ARE OVER 5.75 FEET TALL. THE REPORT IS 
TO LOOK AS SHOWN ON THE NEXT PAGE. 


DON'T LOOK AT OUR SOLUTION UNTIL YOU HAVE COMPLETED ~ 
ALL WORK ON YOURS, 
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START 
RECORD 


RECORD 


RECORD 


TAPEIN 
STUNO, 
LNAME, 
FNAME, 
GPA, 
SEX, 

LBS, 
FEET, 
LPTBUF 
LPNO, 
LPLNAM, 
LPFNAM, 
LPGPA, 
LPLBS, 
LPFEET, 


HEAD 


7 


_DATE, 


;INPUT BUFFER FOR TAPE RECORDS 


RECORD 


RECORD 


COLI 


~ ~ ~ ~ ~ ~ ~ ~ ~ ™~ 


COL2 


A4 
A3,'STU! 
Al9 


Aé, 'WEIGHT' 
A5 
Aé, 'HEIGHT' 


D4 ;Student Number 
Al0 j;Last Name 
Al0 ;First Name 
D2 ;Cumulative Grade Point Average 
Al ;Sex (M or F) 
D4 Weight (XXX .X) 
D3 sHeight (X.XX) 
;Line printer Output Buffer 
A3 Filler 
A4 :Student Number 
A9 Filler 
Al0 ;Last Name 
A8 Filler 
Al0 ;First Name 
A7 Filler 
A2 ;Cumulative GPA 
AY Filler 
A5 ;Pounds 
A7 Filler 
A4 ;Feet 
;Heading Line of Report 
A37 Filler 
A5,'DATE wu! 


A8,P ;Request date when. program_is 


loaded XX/XX/XX 
Al8& Filler 
Al10, 'ATTN:COACH' 


Al2 


| 
On 
~ 
T 
ww 
—”N 
i 


RECORD 
, _u.. -LINECT,D2,50 
PROC 


INIT, IN, 'STUREC', 15) 
CALL HEADER 
REPT, XMIT(1, TAPEIN, EOF) 


;First line of column heading 
Filler 


;Second line of column heading 
Filler 


;BEGINNING OF PROCEDURE 
SECTION 

;Initialize the input tape 

;Print report headings 

;Read input tape 


IF (SEX .NE.'M') 3**Test to determine 


GO TO REPT 

IF (GPA .LE.85) ;**if record should be 
GO TO REPT 

IF (LBS .LE.1700) ;**selected. If a test fails 
GO TO REPT 

IF (FEET .LE.575) ;**read another record. 
GO TO REPT 

LPNO = STUNO ;Format print 


LPLNAM = LNAME jline by moving 
LPFNAM = FNAME zall fields to 


LPGPA = GPA ;the appropriate print 
LPLBS = LBS, ;position. Edit feet 
"XXX .X! 
LPFEET = FEET, ;and lbs. 
'* KX! 
CALL PRINT :Print the line 
GO TO REPT ;Read another record 
PRINT, | XMIT (,LPTBUF) ;Print the line 
INCR LINECT ;Add one to line count 
CALL HEADER ;Test if header is to be printed 
RETURN ;Return to instruction after last 
call 


HEADER, IF (LINECT.LT.50) ;Print every header after every 


GO TO EXIT 750 lines 

LINECT = ;Set line count to zero 

FORMS (6,0) ;Skip to new page 

XMIT (6,HEAD) :Print. Header line 

FORMS£6,1) Print blank line 

XMIT (6,COL1) ;Print first header line 

XMIT (6,COL2) ;Print second header line 

FORMS (6, 2) ;Print blank line 
EXIT, RETURN ;Return to instruction after last call 
EOF, FINI(I) ;Rewind input file 

STOP ;Return control to DIBOL monitor 


END 


SECTION 4 


Advanced DIBOL Statements 


This chapter explains the DIBOL statements which would be used by 
experienced programmers to: 


e@ Increase system throughput by using print overlap. 


e@ Segment a program which no longer fits in available memory. 


e Access source files. 


e Do rounding and truncation. 


ROUNDING 
In DIBOL, all decimal values are stored as integers. It is up to the 
programmer to keep track of the implied decimal point and to do 


rounding and truncation. 


For example: 


RECORD 

HOURS, D5, 04050 740.5 HOURS 

RATE, D5,02535 7$2.535 PER HOUR 
SALARY, D6 ;IN DOLLARS AND CENTS 
PROC 


SALARY=(HOURS*RATE+500)/1 000 
Salary is set equal to 010267 which is actually $102.67, The pro- 
grammer added 500 to the results of HOURS times RATE in order to 


round properly. The statement: 


SALARY=HOURS*RATE/1 000 


would result in SALARY equalling $102.66, which would do truncation 


without rounding. 


An added complication in rounding is the sign of the number. If the 
result of HOURS times RATE is negative, 500 must be subtracted 
rather than added, The program to handle positive and negative 
numbers is: 


RECORD 

HOURS, D5, 04050 - 

RATE, D5, 02535 

SALARY, Dé 

TEMP, D10 

PROC 
TEMP=HOURS*RATE 
IF(TEMP .LT 0) GO TO TAGI 
SALARY=(TEMP+500)/1 000 


GO TO TAG2 
TAGI, SALARY=(TEMP-500)/1 000 
TAG2, . 


All the statements in the procedure section can be replaced by the 
following: 


SALARY=(H OURS*RATE)#3 
The form of this operator is: 
decimal variable #n 


where n is a decimal constant or decimal variable in the range of 1 
to 7. The decimal variable will be rounded and truncated n places. 
There is no restriction to the number of # operators in a statement. 
The # operator has higher priority than all other arithmetic operators; 
therefore, rounding and truncation are performed before all other 
arithmetic operations. 


The following are some simple examples of # operator usage: 


Example 


X=1234#) 
X=123472 
X=1234#3 
X=5555#3 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


SALARY? 
BEEK 
SALARY=(HOURS*RATE)#2 


Result 


X=123 
X=12 
X=] 
X=6 


In the previous example, assume that SALARY 
is three decimal places. What is the statement 
that stores the product of HOURS and RATE in 


What is the value stored in SALARY in the 
following example: 


SALARY=HOURS*RATE#3 


KEK 


012150 or $121.50. RATE is rounded and 
truncated before being multiplied by HOURS. 


What statements will do the following: round 
HOURS to the nearest hour and RATE to the 
nearest dollar, multiply the result, and store in 


SALARY (assume that SALARY is in dollars)? 


KEK 


SALARY=HOURS#1 *RATE#3 


© 


¢ 


m 


STION: 


ANSWER: 


QUESTION: 


ANSWER: 


What is the value stored in SALARY in the 
following: 


SALARY=HOURS#1 *RATE#3 


RRR 


000120 


What is the value in HOURS and RATE after 
rounding the following: 


HOURS=2347 

RAT E=2347 - 
HOURS=HOURS#2 
RATE=RATE#2 


*K*K* 


HOURS contains 23 and RATE contains minus 
23. 


CHARACTER CONVERSION 


The # operator is also used to convert a character to its equivalent 


internal code and make that decimal number available to the pro- 


gram. When # precedes a variable, it is used to obtain the internal 
code of the left~most character of the variable. Refer to Appendix A 
of the COS 300 SYSTEM REFERENCE MANUAL for a table of internal 


COS codes (COS codes are base 8). 


6. 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


QUESTION: 


ANSWER: 


What is the value of J in the following example 
if the internal code for 6 is 27 (base 8) or 23 
decimal? 


RECORD 
|,D1,6 
J, D2 
PROC 
kil 


EK 


J contains 23. 


What is the value of J in the following case: 


lA] 


REX 


J equals 1. When the number sign follows the 
variable, it is used for rounding and fruncation. 


What is the value of J (the internal code for 7 
is 24)? 


RECORD 
|,D2,67 
J,D2 
PROC 
Je#| 


KEE 


J equals 23. The left-most character in the 
variable is converted. 


9. QUESTION: What statement will convert the second 
character in I? 


KKK 


ANSWER: ke# (2,2) 


10, QUESTION: What is the value of J in the following three 
statements if the decimal code for A is 34, B 
is 35, and C is 36? 


|,A3,'ABC! 
J, D2 
PROC 
T -I(1,1) 
2 J-#1(2,2) 
3 #1 (3,3) 


kEK 
ANSWER: In statement 1, J is 34. 


in statement 2, J is 35. 
In statement 3, J is 36. 


SOURCE FILES 


The main use of converting the internal code is when processing 
source files, At run time, the user may specify up to seven source 
files for input fo a DIBOL program. The statement: 


INIT(n, SYS) 


will open the first source file. The first record is read with an XMIT 
statement. The first two characters in that record contain the line 
number and may be converted to decimal with the following statements: 


RECORD SRC 
LINE, A2 
TEXT, A120 
RECORD 
LINENO, D4 
~ PROC 


LINENO=#LINE*64+#LINE (2, 2) 


11. QUESTION: _ In the procedure section of the above example, 
fill in the missing statements which would 
initialize the source file and read the first 
record. 


KKK 


ANSWER: INIT(@, SYS) 


XMIT (n, SRC, EOFRTN) 


When end-of-file is reached on a source file, the file should be 
FINled. The next source file must be INITed before being read. 
The INIT statement can be preceded by an ON ERROR statement 
which will detect that no files are present. A source file can be 
processed only once. 


12. QUESTION: Write a program which will read from one to 
seven source files, The program wif! display: 


LINE FOUND AT RECORD n IN SOURCE FILE n 


if a line number of 3458 was found or will 
display: 


NOT FOUND 


ANSWER: 


if no such line number exists. The message 
should be printed near the middie of a CRT 


screen. 


RECORD 
LINE, 


hm 


LOOP, 


EOF, 


MISSING, 


MSG 

A21,'LINE FOUND AT RECORD' 
D3 

A16,'IN SOURCE FILE’ 

DI 


DISPLAY(1,1,1) ;CLEAR SCREEN 

ON ERROR MISSING 

INIT(I, SYS) 

RECNO= 

INCR SRCNO 

XMIT(1, SRC, EOF) 

INCR RECNO 

IF (FLINE*64+#LINE(2,2).NE.3458) 
GO TO LOOP 

DISPLAY(10, 25, MSG) 

STOP 

FINI(1) 

GO TO BEGIN 

DISPLAY (10, 30, NOT FOUND’) 

STOP 


The Monitor stores tabs in the source file as a single character with 
an internal code of 61 decimal. When LISTing a program on the line 
printer or terminal, the Monitor converts tabs into spaces. 


13. QUESTION: Write a DIBOL program which will detect tabs 


in a source file. 


KKK 
ANSWER: RECORD SRC 

g A2 

TEXT, 120A1 

RECORD 

I, D3 

PROC 
INIT(1, SYS) 

LOOP, XMIT(1, SRC, EOF) 

i 

LOOPI, INCR | 
IF (?TEXT(I) EQ .61) GO TO TAB 
IF(I.EQ.120) GO TO LOOP 
GO TO LOOP1 

TAB, sFOUND A TAB 


TRAP 


Whenever reports are being printed, the entire computer is tied up 


doing that task. Much better use of the computer could be obtained 


if it were allowed to do some other task which does not use the line 
printer. This is possible in DIBOL with the use of the TRAP statement. 
Two tasks may be done concurrently. The line printer is given 
priority and interrupts the other task whenever the line printer is free. 


The following program prints numbers 1-500 on the line printer while 
some other task is being performed: 


RECORD A 
N, D3 
PROC 
TRAP SUB 


FORMS(6,0) ;START LINE PRINTER 


;PERFORM TASK 


LOOP, IF(N.LT.500) GO TO LOOP. ;WAIT FOR PRINTING 
;TO TERMINATE 
STOP 
SUB, INCR N 
IF(N .GT .500) RETURN 
XMIT(6, A) 
RETURN 


In the preceding example, the line printer was started with the 
FORMS statement. Some task was being performed. Since the 
FORMS statement was preceded by a TRAP statement, the line 
printer went to the statement specified by TRAP when it was free. 

A line was XMITed to the line printer and the program then executed 
a RETURN statement to resume the task. The XMIT statement in the 
TRAP routine could have been preceded by another TRAP statement 
if, when the line printer became free, the program were to go to a 
different statement. 


Note that both the task and the report should be completed before the 
program ends. If the task ends first, it waits in a loop for the 
printing to complete. 


NOTE 


For TD8E DECtapes, print overlap will not take place if more than 
78 characters are printed during one TRAP subroutine call. For 
TCO8 DECtapes, print overlap will not occur if more than 230 
characters are printed. 


14, 


QUESTION: 


ANSWER: 


Modify the previous example to print 50 lines 
on one page and then skip to a new page. 


KK 


RECORD A 


LINE, D2 


TRAP SUB 
FORMS(6,0) ;START LINE PRINTER 


, ;PERFORM TASK 


IF(N .LT 500) GO TO LOOP 
STOP 

INCR N 

INCR LINE 

IF(LINE .EQ .51) GO TO FORMS 
TRAP SUB 

XMIT(6,0) 

RETURN 

LINE= 

TRAP SUBI 

FORMS (6,0) 

RETURN 


LOOP, 


SUB, 


SUBI, 


FORMS, 


15. 


QUESTION: 


Write a program which will read cards, verify 
that columns 1-5 are in numerical ascending 
sequence (ignore out of order cards), and store 
all 80 columns on a file named CARDS found 
on logical unit 1. Concurrent with this task, 
print a report. This report is already in print 
format in a file named PRINTR on logical unit 
2. Print 50 lines per page, a 1-line heading, 
and two spaces between heading and detail 


ANSWER: 


f 


OLDSEQ, 
LINE, 
LPFLAG, 


SEQ, 


CRDEOF, 


HEAD, 


RESELL LTA ETS Ta EN (Ty EEE I SSE SRS TE REY a Be PEI 
— 
~ 


AT 


KK 


lines. The heading and detail lines are 70 
characters each. 


RECORD PRINT 
A70 


RECORD HDG 

A70, ‘se! 

RECORD CARD 

D5 

A75 

PROC 2 

INIT(3, CDR) 

INIT(1, OUTPUT, 'CARDS', 1) 

INIT(2, INPUT, 'PRINTR®, 2) 

TRAP HEAD] 

FORMS(6, 0) 

XMIT(3, CARD, CRDEOF) 

IF (SEQ .LE .OLDSEQ) GO TO GETCRD 
:IGNORE CARD 

XMIT(1, CARD) 

OLDSEQ=SEQ 

GO TO GETCRD 

IF(LPFLAG .EQ .0) GO TO CRDEOF 
;LPFLAG=0 IF 

;OUT OF CARDS BEFORE REPORT DON 

STOP 

TRAP HEADI 

FORMS(6,0) 

RETURN 


HEADI, LINE= 
TRAP LPT 
FORMS(6, 2) 
RETURN 
LPT, INCR LINE 
IF(LINE .EQ .51) GO TO HEAD 
XMIT (2, PRINT, LPTEOF) 


XMIT(6,PRINT) ;RETURN TO LPT 
ON PRINTER DONE IF NO 


;TRAP IS SPECIFIED. 

RETURN 
LPTEOF, 
RETURN 


CHAINING 


In the smallest COS 300 system, programs can be written which re- 
quire up to 8K of core memory storage. Occasionally, a program is 
written which exceeds this size and will not run with the available 
memory. This problem may be overcome by a recently developed 
feature in DIBOL called CHAINing. A large DIBOL program may be 
separated into two or more smaller programs which are executed 
sequentially. Each program is written and compiled separately. 
These programs are linked together when they are run by saying: 


eRUN PROGO+PROGI+...+PROG7 


The first program uses a CHAIN statement to load the next desired 
program. Programs that are loaded by a CHAIN statement do not 
have their data section cleared (unless specifically instructed), thus 
permitting one program to pass information to another without saving 
it on a data file. 


INCR LPFLAG = ;PRINTING DONE 


The format of a CHAIN statement is: 
CHAIN n 


where n is a decimal variable in the range 0 to 7 and is the sequence 
number of the program as specified in the RUN command, 


16, QUESTION: What can be done when a program is too large 
to fit in the available memory? 


KK 


ANSWER: The program may be separated into two or more 


programs. 


17. QUESTION: How are these smaller programs linked 
together? 


BEEK 


ANSWER: The programs are linked together at run time by 


specifying the program names in the RUN 
command. 


18. QUESTION: How can a DIBOL program be loaded from 
another DIBOL program? 


KK 


ANSWER: By using the CHAIN statement. 


The RUN command specifies which programs will be used. For 
example: 


eRUN PROG+PROGA+PROGB 


The CHAIN statement determines which program will be loaded and 
run next. If, for example, the statement CHAIN Z were inciuded in 
PROG, it would terminate execution of PROG, load PROGB, and 


begin execution of PROGB. 


The data section is always cleared in a DIBOL program (except when 
initial values are specified). However, the data section of any 
program loaded by a CHAIN statement is not automatically cleared; 
it will contain the values of the previous program. If some fields are 


to be cleared, the program must specify: 


RECORD ,C 19, 
where the ",C" means clear all the fields in this record that do not 
have initial values. 
Look at the following programs. In answering the questions, assume 
that the RUN command is: 
RUN PROG+PROGA 
20. 
START ;PROGRAM PROG 
RECORD OUT 
OUTI, A5 
RECORD 
, D5 
NAME, A4,'FRED' 
DUMMY, A4 21. 
PROC 
INCR | 
IF(t,EQ.10) STOP 
CHAIN 1 
END 
START ;PROGRAM PROGA 
RECORD LPT 
LPTT, A5 
RECORD 
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l, D5 
RECORD, C sWORK AREA 
J, D4,0004 
K, Al5 
PROC 
LPTI=I 
XMIT(6, LPT) 
CHAIN 0 
END 
QUESTION: What do PROG and PROGA do? 
KEK 
ANSWER: PROG increments | by 1 and if | does not equal 
10, PROG CHAINs to PROGA which prints the 
value of | and then CHAINs to PROG. When 
| equals 10, the programs stop. 
QUESTION: Do the data sections have to be the same size 
in each program? 
RRS 
ANSWER: No; the data section is only as large as needed, 
QUESTION: Do the data sections have to match each other 
either by records or by fields? 
keK 
ANSWER: No; the programmer has complete freedom in 


assigning the records, fields, and variable 
names in the data sections. However, the in- 
formation to be passed from one program to 
another must be in the same relative location. 
In the previous programs, for examole, | in 


PROG could not be passed to | in PROGA if it 


were not in the same relative location of the 
data section. 


22. QUESTION: What is the first statement executed in PROG? 
In PROGA? 


RK 


ANSWER: The first statement in the procedure section. 


23. QUESTION: What are the values of OUTI, I, NAME, 
DUMMY, J, and K when PROG is run, when 
PROGA is chained the first time, and when 
PROG is chained the first time? 


KEK 

ANSWER: 

PROG PROGA PROG 
OUTI spaces ] 1 
I 1 I Z 
NAME FRED undetermined FRED 
DUMMY _ spaces undetermined undetermined 
J undetermined 4 undetermined 
K undetermined — spaces undetermined 


File status is lost between CHAIN operations. Data files must be 
FINIed before transferring to another CHAIN. Files that are used 
for input or output will present some problems since when they are 
INITed in the next CHAIN, they will be at the beginning of the 
file. The easiest solution to this problem is to use the data file as 
an UPDATE file. When transferring to another CHAIN, FINI the 
file, save the record number in some common area for use in the 
next CHAIN or on return to the current CHAIN. 
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START — ;INVENT - INVOICE DATA ENTRY 
RECORD PDET_ ;LINE ITEMS FOR LINE PRINTER(LPT) 
: A4 
PINUM, AZ — ;ITEM NUMBER (PART NUMBER) 
, AS 
PDESC, A24_ ;DESCRIPTION 
: A4 
PQO,  A2_ ;QUANTITY ORDERED 
; A2 
PUNIT, A2  ;UNITS 
; A2 
PQS, AZ _—_—;QUANTITY SHIPPED 
; Al5 
PUNITC, Aé ;UNIT COST 
: Al 
PEXTC, A9  ;EXTENDED PRICE 
BLOCK,X 
PDETL, Ag0 
RECORD PCUST ;FOR CUSTOMER LINE ON LPT 
: A8 
PCUSTN, D5 ;CUSTOMER NUMBER 
; AA 
PSALMN, D2 ;SALESMAN'S NUMBER 
; A9 
PCUSTO, A5 ;CUSTOMER'S ORDER NUMBER 
; A20 
PDATEO, A8 ; DATE ORDERED 
; A4 
PDATES, A8  ;DATE SHIPPED 
; A4 
PSCODE, DI ___;SHIPPING CODE 


APPENDIX A 


INVOICE DATA ENTRY PROGRAM 


PINVNO, 


PINVD, 


PADDRI, 


PADDR2, 


7 


AS «INVOICE NUMBER 
A8  ;DATE OF INVOICE 


RECORD PADDRS 
A7 
A30 
A8 
A30_ ;RIGHT-HAND SIDE 
BLOCK PADRSA, X 


— ee 


A37 


;ADDRESS LINES 


;LEFT-HAND SIDE 


;CUSTOMER FILE 


CUSTNO, 
CUSTNM, 
CUSTAI, 
CUSTA2, 
CUSTZP, 
CUSTSN, 
CUSTDC, 
CUSTIX, 
CUSTSC, 


, 


CXKEY, 
CXPTR, 


;PART FILE 


PARTNO, 


RECORD CUSTR ;DATA RECORD 

D5 ;CUSTOMER NUMBER 

A30  ;CUSTOMER NAME 

A25 ;ADDRESS LINE 1 

A25 ;ADDRESS LINE 2 

AS ;ZIP CODE 

D2 ;SALESMAN CODE 

D2 ;DISCOUNT % 

Dl ;TAX% 

Dl = ;SHIP CODE 

DIO ;YEAR-TO-DATE TOTAL 
(NOT USED IN THIS PROGRAM) 


RECORD CUSTX § ;INDEX RECORD 
D5 ;KEY (CUSTOMER CODE) 
D2 ;RECORD POINTER 


RECORD PARTR ;DATA RECORD 
A7 — ;PART NUMBER 


0355 
0360 
0365 
0370 
0375 
0380 
0385 
0390 
0395 


0400 
0405 
0410 
0415 
0420 
0425 
0430 
0435 
0440 
0445 
0450 
0455 
0460 
0465 
0470 
0475 
0480 
0485 
0490 
0495 
0500 
0505 
0510 
0515 
0520 
0525 
0530 
0535 


PARTDS, A30 ;DESCRIPTION 
PARTUT, A2  ;UNIT TYPE (EA, DZ, BX, ETC.) 
PARTUC, DS  ;UNIT COST 


RECORD PARTX =; INDEX RECORD 
PXKEY, A7 — ;KEY (PART NUMBER) 
PXPTR, D2 ;POINTER 


;TEMPORARY FILE TO HOLD LINE ITEMS DURING ENTRY 
OF INVOICE 


RECORD TEMPR ;DATE RECORD 
TMPITM, AZ — ;ITEM (PART) NUMBER 
TMPQO, D2 = ;QTY ORDERED 
TMPQS, D2 ;QTY SHIPPED 
TMPUC, D5 ;UNIT COST 
TMPUNT, A2  ;UNIT 
TMPDES, A30 ;DESCRIPTION 


;FILE TO HOLD TRANSACTIONS 


RECORD TRANS 
TRCODE, Al ;RECORD CODE (H=HEADER, D=DETAIL) 
TRCUST, D7 ;CUSTOMER CODE 
TRCORD, DS  ;CUSTOMER'S ORDER NUMBER 
TRDATE, Dé = ;DATE SHIPPED 
TRSALN, D2  ;SALESMAN'S NUMBER 


~ BLOCK, X 
TRITM, AZ ITEM (PART) NUMBER 
TRQO, D2 ;QTY ORDERED 
TRQS, D2 _—_—;QTY SHIPPED 
TRUC, DS ;UNIT COST 
;FOR KEYBOARD INPUT 


RECORD KBDREC 


0540 
0545 
0550 
0555 
0560 
0565 
0570 
0575 
0580 
0585 
0590 
0595 
0600 
0605 
0610 
0615 
0620 
0625 
0630 
0635 
0640 
0645 
0650 
0655 
0660 
0665 
0670 
0675 
0680 
0685 
0687 
0690 
0695 
0700 
0705 
0710 


0715 


KBDIN, 


KBDCH, 


CURSOR, 
EOS, 
EOL, 
BEEP, 
HOME, 


ED52, 
ED32, 
EDATE, 


SPC5, 

SPC23, 
SPC25, 
SPC28, 
SPC30, 


A30 
BLOCK,X 
30Al 


BLOCK  ;CURSOR CONTROLS 
D2,00 ;1O POSITION CURSOR 
D2,01 ;TO CLEAR SCREEN 
D2,02 ;TO CLEAR LINE 

D2,25 ;1O BEEP 

D2,03 ;TO HOME CURSOR 


BLOCK _ ;EDIT WORDS 
A9, XX, XXX XX! 

Ab, 'XXX .XX! 

AB, 'XX/XX/XX! 


BLOCK ;CONSTANTS 


BLOCK = ;SCRATCH 


BLOCK ;WORK 

D2 ;CURRENT LINE NUMBER 

D2 sCIN+5 

D2 ;LAST LINE NUMBER IN CURRENT 
INVOICE 

D2 ;EXPECTED COLUMN FOR INPUT 


INVNO, 
NOFIND, 


ITMTAB, 
CUSTAB, 


~ ~ ~bos ~ ~ ~ ~ ~ ~ 


~ ~ ~ ~ ~ “= 


D5 ;CURRENT INVOICE NUMBER 

Al ;NON-BLANK IF CUSTOMER OR 
PART NOT FOUND 

A8 ;DATE OF ORDER 

A8 sTODAY'S DATE (MM/DD/YY) 

Dé,D — ;TODAY'S DATE (MMDDYY) 

D2 INDEX 

D3 ;INDEX TO CUSTOMER FILE 

D3 sINDEX TO PART FILE 

D7 ;TOTAL INVOICE PRICE 

D7 ;DISCOUNT AMOUNT 

D7 sTAX AMOUNT 

D7 ;PAY THIS AMOUNT 

D2 sTERMINATING CHARACTER FOR 
"ACCEPT! 

D2 ;LINE COUNT FOR PRINTER 

BLOCK ;ROUGH TABLES FOR INDEX FILES 


11A7 ;ITEM TABLE 
11D5 ;CUSTOMER TABLE 


BLOCK 
A3 

A4, ‘ITEM! 
AS 

All, 'DESCRIPTION' 
Al4 

A3, 'QTY' 

A3 

Ah, SUNT 


s;HEADINGS FOR CRT 


A3, 'QTY' 
A4, 'UNIT' 
AS, 'PRICE' 


AZ, 'NO! 


0905 
0910 
0915 
0920 
0925 
0930 
0935 
0940 
0945 
1000 
100] 
1002 
1003 
1004 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 


1050 
1055 


1060 
1065 


1070 


1075 
1080 
1085 
1090 
1095 
1100 
1105 
1110 


A4, ‘SHIP! 
A3 
A4, ‘COST! 
BLOCK,X 
HEADI, A72 
HEAD2, A60 
PROC6 ;INVENT ----- INVOICE DATA ENTRY 


~ ~ ~ ~ ~ ~ 
co 


aK KKK RK KE KKK KK KEK KK 
f 


SOURCE FILE INVENZ 
aR KK KKK KK KR KK KK KK 
f 


;CREATE ROUGH CUSTOMER INDEX 


INIT 7, IN, 'CINDEX', 7) 

CX= 

[=] 

INCR CX 

XMiIT (7, CUSTX, RUFCSS) 

IF (CX(3,3).NE.1) GO TO RUFCS1 
THE 1ST, 11TH, 21ST, ETC RECORD 
CUSTAB(IJECXKEY ;SAVE EVERY 10TH 
CUSTOMER IN CUSTAB 

INCR | 

GO TO RUFCS] 

CUSTAB (1 )}=99999 

FINI (7) 


RUFCS1, 


71S THIS 


RUFCS5, 


;CREATE ROUGH PART INDEX 


INIT (9, IN, 'PINDEX', 9) 
I=] 

PX= 

INCR PX 

XMIT (9, PARTX, RFITMS) 


RFITM1, 


1115 
1120 


1125 
1130 
1135 
1140 
1145 
1150 
1155 
1160 
1162 
1165 
1170 
1175 
1180 
1185 
1190 
1195 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 


IF (PX(3,3).NE.1) GO TO RFITMI_ ;1S THIS THE 


1ST, 11TH, 21ST, ETC. RECORD 


ITMTAB(I=PXKEY  ;SAVE EVERY 10TH ITEM IN 


ITMTAB 

INCR | 

GO TO RFITMI 
ITMTAB(IF'] 1] ] 1 1]! 
FINI (9) 


RFITM5, 


TODAY=TODAYD, EDATE 


;CREATE EMPTY ‘TEMP! FILE 


;(TEMP HOLDS LINE ITEMS DURING ENTRY OF INVOICE) 


[=20 

INIT (1, OUT, 'TEMP", 10) 
XMIT (1, TEMPR) 

[=I-1 

IF (I1.GT.00) GO TO CLEAN 
FINI (1) 


CLEAN, 


;OPEN UP ALL FILES 


INIT (1, UPDATE, 'TEMP', 10) 
INIT (2, OUT. ITRANS', 11) 
INIT (3, KBD) 

INIT (4, TTY) 

INES, LPT) «otc one 
INIT (6, IN, ‘CUSTEL', 6) 
INIT (7, IN, 'CINDEX', 7) 
INIT (8, IN, ‘PARTEL', 8) 
INIT (9, IN, 'PINDEX', 9) 


;ASK IF FORM IS IN PRINTER 


ASK], XMIT (4,'INVOICE FORM IN PRINTER?') 


XMIT (3, KBDREC) 
IF (KBDIN(I,1).NE.'Y') GO TO ASKI 


;PUT OUT THE DUMMY ENTRIES TO TEST FORM POSITION 


FORMS (5,0) 
PINVNO='99999! 
PINVD='XX/XX/XX! 
PCUSTN=9999999 
PSALMN=99 
PCUSTO="XXXXxX' 
PDATEO='XX/XX/XX! 
PDATES=PDATEO 
PSCODE=9 
PINUM=!"XXXXXXX'! 
PDESC="XXXXXXXXXXXXXXXXXXXXXXXX! 
PQO=99 
PUNIT='!XX'! 
PQS=99 
PUNITC='999.99! 
PEXTC='99, 999.99! 

ASK2, XMIT (5,PINCHD) 
FORMS (5,11) 
XMIT (5,PCUST) 
FORMS (5,2) 
XMIT (5, PDET) 
LINE=16 
CALL TOPAGE 


;TOP-OF-FORM 


XMIT (4,"FORM LINED UP?') 

XMIT (3,KBDREC) —;'Y' IS TYPED WHEN 
FORMS ARE LINED UP 

IF (KBDIN(I,1).NE.'Y') GO TO ASK2 


;ASK FOR FIRST INVOICE NUMBER 


ASK3, XMIT (4,"WHAT IS FIRST INVOICE NUMBER?') 
XMIT (8, KBDREC) 
IF (KBDIN(6,30).NE.SPC25) GO TO ASK3 
ON ERROR ASK3 


INVNO=KBDIN(I,5) 


aK RR RRR E KEE KREREKEKERRERERRERERERRERERREREKEERE 
f 


;START A NEW INVOICE 


eR RRR KERR RRR RRR RREKEEKKEERRERERRRERER ERR RRREREREREE 
t 


NEWINV, DISPLAY (1,1,EOS) ;CLEAR SCREEN 


DISPLAY (1,1,'CUSTOMER NO:') 


CINX=1 
COL=14 


we NY 


CALL GETKBD 

IF (KBDIN(6, 30) NE .SPC25) GO TO BADCUS 
ON ERROR BADCUS 

CUSTNO=KBDIN (1, 5) 

IF (CUSTNO.LT.1) GO TO BADCUS 

CALL GETCUS 

IF (NOFIND.NE.' ') GO TO NOCUST 


TRCUST=CUSTNO 


;GET CUSTOMER'S ORDER NUMBER 


DISPLAY (1,21,'CUSTOMER ORDER: ') 
COL=37 

CALL GETKBD 

TRCORD=KBDIN(1, 5) 


;GET DATE ORDERED 


DISPLAY (1,45, 'DATE') 
COL=50 

CALL GETKBD 
DATORD=KBDIN(I, 8) 


;GET SALESMAN'S CODE 


DISPLAY (1,59,'SALESMAN ') 
AX2=CUSTSN 


DISPLAY (1,68,AX2) 
V5A COL=70 


! 
INOY SEA we 


CALL GETKBD 
IF (KBDIN .EQ, SPC30) GO TO NINV5C 


CALL GETD2A 
IF (KBDIN(3, 30). NE.SPC28) GO TO BADSN 
CUSTSN=KBDIN (I, 2) 
IF (CUSTSN ..LT.1) GO TO BADSN 
AX2=CUSTSN 
DISPLAY (1,68, AX2) 
DISPLAY (1,70,EOL) 
NINVSC, | TRSALN=CUSTSN 


;ALL 1S WELL WITH INITIAL LINE -- PUT OUT HEADINGS 


DISPLAY (3,1,HEAD1) 
DISPLAY (4,1,HEAD2) 
CINL= 

TOTPRC= 


eK EEKEKEKEKEE KEKE KKKKEK KE KERE KERR EKER RK RRR ERR EKER RRKEK KER 


START NEW LINE 


eKKEREKRKEEKKERKEKREKKEREEREREKEREKREKEREKER ERR EKRREKREKKERKREKKREKRE 
f 


;GET ITEM NUMBER 


NINV7, INCR CINL 


CIN=CINL 
NINV8,  AX2=CIN 

CINX=CIN+5 

DISPLAY (CINX, 1 AX2) 

DISPLAY (CINX, 3, EOL) 

DISPLAY (CINX, 4, CURSOR) 

COL=4 

CALL GETKBD 

IF (KBDIN(8, 30). NE.SPC23) GO TO BADINO 

IF (KBDIN(1,7).EQ. 'TOTAL ') GO TO TOTALI 


1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2045 
2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 


IF (KBDIN(1,1).EQ.'-') GO TO CORECT 

IF (KBDIN(1,7) EQ .'RESTART') GO TO NEWINV 
IF (CINL.GT.8) GO TO TUMANY 
TMPITM=KBDIN (1, 7) 

PARTNO=TMPITM 


CALL GETITM 

IF (NOFIND.NE. ' ') GO TO NOPART 
DISPLAY (CINX,13,PARTDS) 
TMPDES=PARTDS 


;GET QTY ORDERED 


NINV9, 


DISPLAY (CINX, 38, CURSOR) 

COL=38 

CALL GETD2 

IF (KBDIN(1,2).EQ. ' ') GO TO BADQO 
TMPQO=KBDIN (I, 2) 

AX2=TMPQO 

DISPLAY (CINX, 38, AX2) 


;DISPLAY UNITS 


DISPLAY (CINX,45, PARTUT) 
TMPUNT=PARTUT 


;GET QTY SHIPPED 


NINV10, 


DISPLAY (CINX,51, CURSOR) 

COL=51 

CALL GETD2 

IF (KBDIN(1,2).EQ. ' ') GO TO BADQS 
TMPQS=KBDIN (I, 2) 

AX2=TMPQS 

DISPLAY (CINX,51,AX2) 


AX6=PARTUC, ED32 
DISPLAY (CINX,55,AX6) 


2090 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2135 
2145 
2150 
2155 
2160 
2165 
2170 
2\75 
2180 
2185 
2190 
2192 
2193 
2195 
2200 
2205 
2210 
2215 
2220 


ighezo 


2230 
2235 
2240 
2245 
2250 
2255 
2260 
2265 
2267 
2268 


TOTALS, 


TMPUC=PARTUC 


AX9=PARTUC+TMPQS , ED52 
DISPLAY (CINX,64, AX9) 


sINPUT OF LINE COMPLETE 


WRITE (1, TEMPR, CIN) 
TOTPRC=PARTUC*TMPQS+TOTPRC 
GO TO NINV7 


;TOTAL OUT THE INVOICE 


TOTALI, CINL=CINL-1 


DISPLAY (CINX,1,EOL) 
DISPLAY (15,47,'TOTAL PRICE’) 
AX9=TOTPRC, ED52 

DISPLAY (15,60,AX9) 


;COMPUTE & DISPLAY DISCOUNT, IF ANY 


IF (CUSTDC .EQ .00) GO TO TOTAL3 
DISPLAY (16,47,'DISCOUNT') 
AX2=CUSTDC 

DISPLAY (16,56, AX2) 

DISPLAY (16,58,'%') 
DISCA=(TOTPRC*CUSTDC+50)/1 00 


AX9=DISCA, ED52 oan ooacted 


DISPLAY (16,60, AX9) 
DX7=TOTPRC-DISCA 
DISPLAY (16,60, AX9) 
GO TO TOTAL4 


DX7=TOTPRC 
DISCA= 


;COMPUTE & DISPLAY TAX, IF ANY 


TOTALS, 


TOTAL6, 


DISPLAY (17,47, 'TAX') 

IF (CUSTTX .EQ .0) GO TO TOTALS 
AX1=CUSTTX 

DISPLAY (17,51 ,AX1) 

DISPLAY (15,52,'%') 
TAXA=(DX7*CUSTTX+50)/1 00 
AX9=TAXA, ED52 

DISPLAY (17,60, AX9) 
PAYA=DX7+TAXA 

GO TO TOTAL6 


TAXA= 
PAYA=DX7 


DISPLAY (19,44,'PAY THIS AMOUNT") 
AX9=PAYA, ED52 
DISPLAY (19,60, AX9) 


aK KKK KKK RE KKK KK KK 


;SOURCE FILE INVENS3 


ak KKK KKK KK RK KK KEK 
i 


;PRINT OUT THE INVOICE 


PINVNO=INVNO 
PINVD=TODAY 
XMIT (5, PINCHD) 


FORMS (5,3) 


;PRINT NAME AND ADDRESS 


PADDRI=CUSTNM 
CALL PRNTIF 
PADDRI=CUSTAT 
CALL PRNTIF 
PADDRI=CUSTA2 
CALL PRNTIF 
PADDRI (1,19)= 


PADDRI (20, 24)=CUSTZP 
CALL PRNTIF 


FORMS (5, 4) 
;PRINT GENERAL INFORMATION LINE 


PCUSTN=CUSTNO 
PSALMN=CUSTSN 
PCUSTO=TRCORD 
PDATEO=DATORD 
PDATES=TODAY 
PSCODE=CUSTSC 
XMIT (5,PCUST) 
FORMS (5, 2) 


TRCODE='H' 
TRDATE=TODAYD 
XMIT (2, TRANS) 
TRCODE='D! 


I=] 

LINE=15 

PDETL= 
;PRINT INVOICE ITEMS 
PLOOP, READ (1, TEMPR, I) 
PINUM=TMPITM 
PDESC=TMPDES 
PQO=TMPQO- 
PQS=TMPQS 
PUNIT=TMPUNT 
PUNITC=TMPUC, ED32 


PEXTC=TMPUC*TMPQS, ED52 


XMIT (5,PDET) 
INCR LINE 


2835 
2840 
2845 
2850 
2855 
2860 
2865 
2866 
2880 
2885 
2890 
2895 
2900 
2905 
2910 
2915 
2920 
2925 
2927 
2928 
2930 
2935 
2940 
2945 
2950 
2955 
2960 
2962 
2963 
2965 
2970 
2975 
2980 
2985 
2990 
2995 
3000 
3005 


TRITM=TMPITM 
TRQO=TMPQO 
TRQS=TMPQS 
TRUC=TMPUC 
XMIT (2, TRANS) 


I=[+1 
IF (1.LE.CINL) GO TO PLOOP 
CALL BOTPAG 


;TOTAL PRICE LINE 


PDETL= 

PDETL (59,70)='TOTAL PRICE! 
PEXTC=TOTPRC, ED52 

XMIT (5,PDET) 

INCR LINE 


;CUSTOMER DISCOUNT LINE 


IF (CUSTDC .EQ.00) GO TO PLOOP2 
PDETL(59, 70)='DISCOUNT XX%' 
PDETL(68, 69)=CUSTDC 
PEXTC=DISCA, ED52 

XMIT (5, PDET) 

INCR LINE 


;CUSTOMER TAX LINE 


PLOOP2, IF (CUSTTX .EQ.0) GO TO PLOOP3 
PDETL(59, 70)='TAX X% 
PDETL(63, 63)=CUSTTX 
PEXTC=TAXA, ED52 
XMIT (5,PDET) 
INCR LINE 


PLOOP3, FORMS (5,1) 


3007 
3008 
3009 
3010 
3011 
3012 
3013 
3015 
3020 
3025 
3030 
3035 
3040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 
3095 
3100 
3105 
3110 
3115 
3120 
3125 
3130 
3135 
31 40 
3145 
3150 
3155 
3160 
3165 


;CUSTOMER NET PRICE LINE 


PDET= 

PDETL(21,35)='PAY THIS AMOUNT! 
FORMS(5,-2)  ;DOUBLE WIDTH CHARACTERS 
XMIT (5, PDET) 

PDET= 

PEXTC=PAYA, ED52 

XMIT (5,PDET) 

LINE=LINE+3 

CALL TOPAGE 


;WAIT FOR OPERATOR 


DISPLAY (20,1,0) 

CALL GETKBD 

INCR INVNO 

IF (KBDIN(1,4) .NE.'END') GO TO NEWINV 


FINI (1) 
FINI (2) 
FINI (3) 
FINI (4) 
FINI (5) 
FINI (6) 
FINI (7) 
FINI (8) 
FINI (9) 
STOP 


;GET READY TO CORRECT A LINE 


CORECT, CINL=CINL-1 


KBDIN (1 ,29}-KBDIN (2, 30) 

CALL GETD2A 

IF (KBDIN(1,2).EQ. ' ') GO TO CORCT2 
CIN=KBDIN(I , 2) 

IF (CIN .EQ.0) GO TO CORCT2 

IF (CIN .GT.CINL) GO TO CORCT4 


3170 
3175 
3180 
3185 
3190 
3195 
3200 
3205 
3210 
3215 


2990 


VLLV 


3225 


2920 


VeUY 


3235 
3300 
3301 
3302 
3303 
3304 
3310 
3311 
3315 
3320 
3325 
3330 
3335 
3336 
3340 
3345 
3350 
3355 
3360 
3362 


3365 
3370 
3375 
3380 


DISPLAY (CINX,1,EOL) 
READ (1, TEMPR, CIN) 


TOTPRC=TO TPRC-TMPUC* TMPQS 


GO TO NINV8 
CORCT2, DISPLAY (20,1, BEEP) 

DISPLAY (20,1,'BAD LINE NUMBER’) 
CORCT3, CALL ERAW8 

GO TO NINV7 
CORCT4, DISPLAY (20,1,BEEP) 


i v2 Va pt gg VE 


DISPLAY (20,1,'LINE NUMBER TOO BIG') 


GO TO CORCT3 


ok wk KK KKK KKK KKK KK 


;SOURCE FILE INVEN4 


ak kK KK KK KKK KKK KK 
f 


;GO TO TOP OF NEXT PAGE ON THE FORM 
TOPAGE, FORMS (5,42-LINE) 

LINE= 

RETURN 


;GET TO BOTTOM OF PAGE 


BOTPAG, I=15-I 
IF (| .LE.0) RETURN 
FORMS (5,1) 
LINE=LINE+1 
RETURN 


;GET AN ITEM FROM THE KEYBOARD 
(IF TCHAR IS CTRL/U (21), CLEAR INPUTTED ITEM & 
ACCEPT iT AGAIN 


GETKBD, KBDIN= 
ACCEPT (TCHAR, KBDIN) 
IF (TCHAR .NE.21) RETURN 


3385 
3390 
3395 
3400 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3465 
3470 


3475 
3480 
3485 
3490 
3495 
3497 
3498 
3500 


3505 
3510 
3512 
3513 
3515 
3520 
3525 
3530 
3535 
3540 
3545 
3550 
3555 
3560 
3565 
3570 
3575 


DISPLAY (CINX, COL, EOL) 
GO TO GETKBD 
RETURN 


;GET A ONE OR TWO DIGIT NUMBER FROM KEYBOARD 


GETD2, 
GETD2A, 


GETD2x, 


CALL GETKBD 
IF (KBDIN(3,30) .NE.SPC28) GO TO GETD2X 
ON ERROR GETD2X 
TEMP=KBDIN(1, 2) 

IF (TEMP.LT.0) GO TO GETD2X 
RETURN 

KBDIN= 

RETURN 


;GET A CUSTOMER RECORD 


GETCUS, 


CX=2 


;FIND ROUGH INDEX (WITHIN 10) 


GTCUSI, 


IF (CUSTAB (CX) .GT .CUSTNO) GO TO GTCUS2 


INCR CX 
GO TO GTCUS! 


;GET EXACT INDEX 


GTCUS2, 
GTCUS3, 


GTCUSS, 


CX=(CX-2)*10 

INCR CX 

READ (7,CUSTX,CX) 

IF (CXKEY .EQ.CUSTNO) GO TO GTCUS5 
IF (CXKEY .LT.CUSTNO) GO TO GTCUS3 


NOFIND='X! sf NVALID CUSTOMER NO 
RETURN 

CX=CXPTR — ;MATCH ON CUSTOMER NO 
READ (6, CUSTR, CX) 

NOFIND= 

RETURN 


;GET A PART RECORD 


3580 
3585 
3587 
3588 
3590 
3595 
3600 
3605 
3610 
3615 
3620 
3625 
3630 
3635 
3640 
3645 
3650 
3655 
3660 
3665 
3670 
3675 
3680 
3685 
3690 
3695 
3700 
3705 


— 3710 


3715 
3720 
3725 
3730 
3735 
3740 
3745 
3750 
3755 


GETITM,  PX=2 


;FIND ROUGH INDEX (WITHIN 10) 


GTITMI, _ IF (ITMTAB (PX).GT.PARTNO) GO TO GTITM2 
INCR PX 
GOTO GTITMI 

GTITM2, PX=(PX-2)*10 

GTITM3, INCR PX 
READ (9, PARTX, PX) 
IF (PXKEY .EQ .PARTNO) GO TO GTITM5 
IF (PXKEY .LT.PARTNO) GO TO GTITM3 
NOFIND='X' — ; INVALID PART NO 
RETURN 

GTITM5, | PX=PXPTR ;MATCH ON CUSTOMER NO 
READ (8, PARTR, PX) 
NOFIND= 
RETURN 


;PRINT ONE OR TWO ADDRESS LINES 
PRNTIF, IF (PADDR2 .EQ.SPC30) GO TO PRNTFI 
XMIT (5, PADDRS) 

RETURN 

IF (PADDRI .EQ .SPC30) GO TO PRNTF2 
XMIT (5, PADRSA) 

RETURN | 

FORMS (5,1) | 
RETURN 


PRNTFI, 


PRNTF2, — 


a BRKEKEKERERERKE REE REE KRERKRREERERERERRREKEREKREREREEKEEKKEEE 
f 


;ERROR ROUTINES 


eKEKEKKEKKREKER REE EKREE KE RERERERRERRRRERRREREERKREEEEEEE 
, 


;BAD ITEM NUMBER 


BADINO, DISPLAY (20,1,BEEP) 


DISPLAY (20,1,'TOO MANY CHARACTERS') 


A-10 


3760 
3765 
3770 
3775 
3780 
3785 
3790 
3795 
3800 
3805 
3810 
3815 
3820 
3825 
3830 
3835 
3840 
3845 
3850 
3855 
3860 
3865 
3870 
3875 
3880 
3885 
3890 
3895 
3900 
3905 
3910 
3915 
3920 
3925 
3930 
3935 
3940 
3945 


CALL ERAW8 
GO TO NINV8 


;BAD CUSTOMER NUMBER 
BADCUS, DISPLAY (20,1,BEEP) 
DISPLAY (20,1,'MUST BE 5-DIGIT NUMERIC') 


CALL ERAW8 
GO TO NEWINV 


;CUSTOMER NOT FOUND ON FILE 
NOCUST, DISPLAY (20,1,BEEP} 
DISPLAY (20,1,'CUSTOMER NOT FOUND') 


CALL ERAW8 
GO TO NEWINV 


;PART NOT FOUND ON FILE 
NOPART, DISPLAY (20,1,BEEP) 
DISPLAY (20,1,'PART NOT FOUND') 


CALL ERAW8 
GO TO NINV8 


;BAD QTY SHIPPED 
BADQS, DISPLAY (20,1, BEEP) 
CALL ERAW8 


DISPLAY (CINX,COL, EOL) 
GO TO NINV10 


;BAD QTY ORDERED 
BADQO DISPLAY (20,1,BEEP) 
DISPLAY (20,1,'MUST BE ONE OR TWO DIGITS') 


CALL ERAW8 
DISPLAY (CINX,COL, EOL) 


DISPLAY (20,1,'MUST BE ONE OR TWO. DIGITS!)-. —. 


GO TO NiNV9Y 
;BAD SALESMAN'S NUMBER 


BADSN, — DISPLAY (20,1,BEEP) 
DISPLAY (20,1,'BAD SALESMAN NUMBER’) 
CALL ERAW8 
DISPLAY (1,70,EOL) 
GO TO NINVS5A 
;BAD SALESMAN'S NUMBER 
;TOO MANY ITEMS 
TUMANY, DISPLAY (20,1, BEEP) 
DISPLAY (20,1,'TOO MANY LINES') 


CALL ERAW8 
GO TO NINV8 


;WAIT FOR A CHARACTER TO BE TYPED 
ERAW8, CALL GETKBD 
DISPLAY (20,1,EOL) 
RETURN 


END/N 


A-1] 


SYMBOLS 


1. 


-able operations. 


APPENDIX B 


STANDARD FLOWCHART SYMBOLS 


Input/Output Symbol - Represents an input/output function 
(I/O), that is, the making available of information for pro- 
cessing (input), or the recording of processed information 
(output). 


rs | 


Process Symbol - Represents any kind of processing function; 
for example, the process of executing a defined operation or 
group of operations resulting in a change in value, form or 
location of information. 


Flowline Symbol - Represents the function of linking symbols. 
It indtcates the sequence of available tnformation and execut~ 


Crossing of Flowlines - Flowlines may cross; this means they 


Ost may 7 


have no logical interrelation. Example: 


x A 


Junction of Flowlines - Two or more incoming flowlines may 
join with one outgoing flowline. Example: 


ae 


—<_-___ 


Every flowline entering and leaving a junction should have 
arrowheads near the junction point. Example: 


we 


Comment, Annotation Symbol - Represents the annotation 
function, that is, the addition of descriptive comments or 
explanatory notes as clarification. The broken line is 
connected to any symbol at a point where the annotation is 
meaningful by extending the brokén line in whatever fashion 
is Appropriate. 


cc 


SPECIALIZED SYMBOLS 2. Online Storage Symbol - Represents an I/O function 
utilizing any type of online storage; for example, magnetic 

Specialized I/O Symbols may represent the I/O function and, in tape, magnetic drum, magnetic disk. 

addition, denote the medium on which the information is recorded 


or the manner of handling the information or both. 
1. Punched Card Symbol - Represents an I/O function in which 
the medium is punched cards. 


3. Magnetic Tape Symbol - Represents an I/O function in 
which the medium is magnetic tape. 


The following symbols may be used to represent a deck of 
cards or a file or cards. 


Deck of Cards Symbol. The symbol shown below represents 
a collection of punched cards. 4, Punched Tape Symbol - Represents an I/O function in which 
the medium is punched paper tape. 


File of Cards Symbol. The symbol shown below represents a 


collection of related punched card records. . ; | 5. Magnetic Disk Symbol - Represents an I/O function in which 


the medium is magnetic disk. 


« 


Core Symbol - Represents an I/O function in which the 
medium is magnetic core. 


Document Symbol - Represents an I/O function in which the 


medium is a printed document. 


L 


Manual Input Symbol - Represents an input function in 
which the information is entered manually at the time of 
processing; for example, by means of online keyboards, 

switch settings, push buttons. 


Display Symbol - Represents an I/O function in which the 
information is displayed for human use at the time of pro- 
cessing, by means of online indicators, video devices, 
console printers, plotters, and so forth. 


10. Offline Storage Symbol - Represents the function of storing 
information offiine, regardiess of the medium on which the 
information is recorded, 


11. Communication Link Symbol - Represents information 
transmitted by a telecommunication link. 


ee 


SPECIALIZED PROCESS SYMBOLS 


Specialized process symbols may represent the processing function 
and, in addition, identify the specific type of operation to be 
performed on the information. 


1. Decision Symbo! - Represents a decision or switching-type 
operation that determines which of a number of alternative 
paths is to be followed. 


Predefined Process Symbol - Represents a named process 
consisting of one or more operations or program steps that are 
specified elsewhere; for example, subroutine or logical unit. 
Elsewhere means not this set of flowcharts. 


7 


Preparation Symbol - Represents modification of an in- 
struction or group of instructions which change the program 
itself; for example, set a switch, modify an index register, 
or initialize a routine. 


. 


Manual Operation Symbol - Represents any offline process 
geared to the speed of a human being, without using 
mechanical aid. 


‘ 


Auxiliary Operation Symbol - Represents an offline operation 
performed on equipment not under direct control of the central 
processing unit. 


= 


B-4 


Merge Symbol - Represents the combining of two or more 
sets of items into one set. 


V 


Extract Symbol - Represents the removal of one or more 


specific sets of items from a single set of items. 


/\ 


Sort Symbol - Represents the arranging of a set of items into 
a particular sequence. 


v 


Collate Symbol - Represents merging with extracting, that 


is, the formation of two or more sets of items fro 
‘other sets. 


X 


m two or more 


ADDITIONAL SYMBOLS 


Tse 


Connector Symbol - The symbol shown below represents an 


exit to or an entry from another part of the flowchart. It is a 
junction in a line of flow. A set of two connectors is used to 


represent a continued flow direction when the flow is broken 
by any limitation of the flowchart. A set of two or more 


connectors is used to represent the junction of several flowlines 
with one flowline, or the junction of one flowline with one of 


several alternate flowlines. 


O 


Terminal Interrupt Symbol - Represents a terminal point in a 
flowchart, for example, start, stop, halt, delay, or interrupt. 


CO) 


Paraliel Mode Symbol - Represents the beginning or end of 
two or more simultaneous operations. 


bo dh 
Why od 


GLOSSARY 


COS 300 Glossary of Standard Terminology 


access time 


alphanumeric 


algorithm 


analysis 


annotation 


array 


The time interval between the instant at 
which data is called from storage, and 
the instant delivery begins. 


A character set that contains letters, 
digits, and other characters such as 
punctuation marks. The alphanumeric 
character set includes the upper case 
letters A-Z, the digits 0-9, and most of 
the special characters on the terminal 
keyboard. Two of these characters, 
back slash \ and back arrow <«, are 
illegal in user data fields. 


A prescribed set of well-defined rules 
or processes for the solution of a problem. 


i ANSCIi 


assignment statement 


auxiliary operation 


batch processing 


benchmark 


The methodical investigation of a problem, 


and the separation of the problem into 
smaller relocated units for further de- 
tailed study. 


An added descriptive comment or ex- 
planatory note. 


A DIBOL technique for specifying more 
than one field of the same length and 


type. 5D3 reserves space for five decimal 


fields, each to be three digits long. 
2A10 describes two alphanumeric fields, 
each to be ten characters long. 


bootstrap 


GLOSSARY - 1 


American National Standard Code for 
information interchange. This is one 
method of coding alphanumeric charac- 
ters. 


See Equals statement. 


An offline operation performed by equip- 
ment not under control of the central 
processing unit. 


The technique of automatically executing 
me meme ml on eemrmme acral that anak fe 

u YIVUP Vi Pivytiuins OUMIE TIME VM Fo 
completed before the next is started. 

The DO command stores groups of 
commands, allowing "unattended" 


system operation. 


A problem used to evaluate the perform- 
ance of hardware or software or both. 


In flowcharting, flow that can be ex- 
tended over the same flowline in either 
direction. 


The form of user's program which is out- 
put by the compiler. 


A binary digit. 


A part of a medium in which no char- 
acters are recorded, 


A short routine automatically loaded at 
system startup time (bootstrap switch) to 
read in system software. 


branch 


buffer 
bug 


CALL 


Cathode-Ray Tube 
(CRT) Display 


central processing unit 


character 


character string 


clear 


A program stream operation including 
switching where a selection is made be- 
tween two or more possible courses of 
action, depending upon some related 
fact or condition. 


A temporary storage area usually used for 
input or output data transfers. 


A program error, or a hardware mal- 
function. 


A program statement that transfers control 
to a specified subroutine. The subroutine 
must terminate with a RETURN statement, 
which returns control to the statement 
following CALL statement. 


A character television display unit of the 
operator's console. 


A unit of a computer that includes the 
circuits controlling the interpretation 
and execution of instructions. 


A letter, digit, or other symbol used to 
control or to represent data. See 


Switch character. 


A linear sequence of characters. 


Setting an alphanumeric field to space 
characters, or a decimal field to zeros. 
In the Data Definition section of a DIBOL 
program 'C' initially clears a RECORD 
storage area, 


GLOSSARY - 2 


code 


collating sequence 


command 
command string 


communication link 


COMP 


comments 


connector 


Means many things to many programmers. 
(1) The representation of information, 
as in ASCII code. (2) A set of instruc- 
tions or statements called "a piece of 
code." (3) To code means to write a 
program. 


An ordering assigned to a group of records 
based on a key item or field within the 
records. One possible ascending sequence 
is A~Z, 0-9. Then the descending 
sequence is 9-0, Z-A. 


An operator request for Monitor services; 
usually to be executed immediately. 


The characters that make up a complete 
command. 


The physical means of connecting one 
location to another for the purpose of 
transmitting and receiving information. 


The DIBOL compiler program which 
translates from source programs written 
in DIBOL language to binary programs 
which run on the computer. 


Notes for people to read, ignored by 
the compiler. Optional, following a 
semicolon on any statement line. 


A means of representing on a flowchart 
a break in a line of flow. 


data 


data base 


data definition 


data entry 


data independence 


data language 


A representation of information in a 
manner suitable for communication, 
interpretation, or processing by either 
people or machines. !n COS 300 

systems, data is represented by characters. 


The entire set of data files available for 
processing by COS 300 data management 
system. 


The specification of record formats in 

both format programs and source programs. 
Gives the length of each field, states 
whether it is alphanumeric or decimal, 
and may give a field name and initial 
entry. Data definitions are stored on 

the systems device, and may be referenced 
by any other COS 300 program. 


The process of collecting and inputting 
data into the computer data files. Key- 
boarding is either key-to-tape or key-to- 
disk. The systems utility program, 
BUILD, checks the incoming data for 
type and length, and writes the records 
on DECtape or disk. The operator can 
then print the new data on the line 
printer to validate the entries. 


When data files can be accessed by any 
program by referencing a separately 
stored data definition, data is considered 
to be independent. 


The DIBOL procedural programming lan- 
guage. Source programs written in this 
language are compiled by COMP, pro- 
ducing binary programs which are executed 
with the Run-Time system. 


GLOSSARY - 3 


AAnAAAmMaAN +t 


debug 


decision table 


DECtape reel 


detail file 


device independence 


The planning, development, and opera- 
tion of a computer system to mechanize 
its information flows, and make available 


the data needed by the user. 


To detect, locate, and remove errors or 
malfunctions from a program or machine. 


Acronym for Digital Equipment 
Corporation, 


A determination of a future action. 


A table of all contingencies that are to 
be considered in the description of a 
problem, together with the actions to be 
taken. Decision tables are sometimes 
used instead of flowcharts for problem 
description and documentation. 


Each 4-inch reel contains 260 feet of 
3/4-inch wide magnetic tape. Each 
reel is a logical file of up to 737 blocks 
of 512 characters each. A large file 
may consist of up to 63 reels. 


Same as transaction file. 


COS 300 system design permits data files 
and programs fo be stored on either 
DECtape or disk. At run-time, the 
operator chooses the most suitable, or 
available, input and output devices. 

PIP commands transfer files from one 
standard device to another. 


device names 


DIBOL 


direct access 


directory 


disk 


display 


document 


dump 


3-character abbreviations are used to name 


the I/O devices. 


DTO-DT7 DECtapes 0-7 
RKO-RK3 RK5 disk drives 


TTY Terminal printer 
KBD Terminal keyboard 
RDR Paper tape reader 
PTP Paper tape punch 
CDR Card Reader 

LPT Line Printer 


Digital's Business Oriented Language is a 
higher level programming language. It 

is an integral part of the DEC DATASYSTEM 
Series 300 Commercial Operating System. 


The process of obtaining data from, or 
placing data into, a storage device where 
the time required for each access is in- 
dependent of the location of the data most 
recently obtained or places in storage. 


See Systems Directory. 


A standard mass storage device giving very 


.. fast-access.to data files and. programs. - 


A visual presentation of data. 


A medium and the data recorded on it for 
human use, for example, a report sheet, 
a book. 


To copy the contents of all or part of 
storage, usually from core memory to 
external storage. 


GLOSSARY - 4 


EDP 


END 


end of tape mark 


end of file mark 


equals statement 


error message 


field 


file 


FINI 


Electronic Data Processing. 


May be used to terminate DIBOL source 
programs. Not required by compiler. 


Control characters which mark the 
physical end of a DECtape reel. When 
an input file is being read, Monitor 
detects this EOT mark, and types a 
message for the operator asking that the 
next reel in this file be mounted. If an 
output file, the Monitor asks for another 
reel, 


Identifies the end of the logical file. 


Manipulates data fields in source programs. 
Moves data from one field to another, 
clears fields, calculates the value of 
arithmetic expressions, and formats data. 


An indication that an error has been 
detected. 


A specified area in a data record used for 
either alphanumeric or decimal data, 


which cannot exceed the specified char= ~~ 


acter length. 


A collection of records, treated as a 
logical unit. 


Source language statement required to 
close output files on disk or DECtape. 
FINI writes the last record and the 
end-of-file mark. 


fixed-length records 


flowchart 


flowchart text 


flowline 


format (control) program 


function 


GO TO 


Records in a data file which are ail the 
same length. See also variable-length 
records. 


A graphical representation of the defi- 
nition, analysis, or solution of a problem 
in which symbols are used to represent 
operations, data, flow, equipment, etc. 


sequence of available 
information and executable operations. 


On a flowchart, a line representing a 
connecting path between flowchart 
symbols: a line to indicate a transfer of 
data or control. 


systems device, required to run a BUILD, 
SORT, or UPDATE program. A format 
program has two parts, Field Descriptor 
Section and INPUT/OUTPUT Section, 
which may be stored as two separate 
programs (or as one) on the systems device. 


A specific purpose of an entity or its 
characteristic action. 


A source program statement that branches 
to another statement in the Procedure 
section, usually not to the following 
statement which would be the normal 
order of execution. 
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head of forms 


illegal character 


inconnector 


information 


information processing 


INIT 


The information printed at the top of a 
report. May inciude title, data, page 
number and column headings. 


A successful comparison of two data 
fields, or keys. See also match. 


A conditional branch statement in DIBOL 
source program. If the relationship be- 
tween two variables is true, the program 


branches to the label following GOTO. 


If not true, the next statement is 


PaO eo ol et 


baal 
SASCUICG. 


A character that is not valid according to 
the COS 300 design rules. DIBOL will 
not accept back slash (\\) and back 
arrow {<) in alphanumeric strings. 


A connector that indicates a continuation 
of a broken flowline. 


The meaning that a human assigns to data 
by means of the known conventions used 
in its representation. 


The execution of a systematic sequence 
of operations performed upon data. 


This statement INITializes a data file. 
In effect, each INIT opens a file, so 
that a related XMIT, READ or WRITE 


can access records from that file. 


input 


Input/Output function 


instruction 


interface 


jump 


Data flowing into the computer to be justify 
processed by a binary program is input 

data. When the processed data flows 

out of the computer, it is output data. 


The making available of information for 
processing (input) or the recording of the 
processed information (output). 


A program statement that specifies an 
executable computer operation. 


A shared boundary. A hardware component 

which links two devices, or a storage area 

accessed by two or more programs. 

Example: Key 
Monitor's Edit Buffer is filled by programs 

typed in by the operator but taken out of 

the Edit Buffer and stored on the systems 

device when a WRITE is given. 


An abbreviation for input/output. (See 
input/output function .) 


A group of fields treated as a unit. label 


A set of tasks that makes up a unit of 
work fora computer. By extension, a 


job may include all of the necessary data leader 


files, systems programs, and instructions 
that an operator needs to run a job. 
library 
A departure from the normal sequence of 
executing instructions in a computer. 
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The process of positioning data in a field 
whose size is larger than the data. In 
alphanumeric fields, the data is left- 
justified and any remaining positions are 
space-filled; in decimal fields the digits 
are right-justified and any remaining 
positions are zero-filled. 


An abbreviation for the prefix kilo. When 
referring to storage capacity, K=1024 in 
decimal notation; otherwise, K=1000. 
COS 300 storage capacities are stated in 
characters or in record blocks (of up to 
510 characters each). 


One or more fields within a record used 
to match or sort a file. Ifa file is to be 
arranged by customer name, then the 
field that contains the customer's names 
is the key field. In a sort operation, the 
key fields of two records are compared, 
and the records are resequenced when 
necessary. 


One or more characters (up to a maximum 
of 6) used to identify a statement in a 
source program. 


The blank section of tape at the be- 


ginning of a record. 


A collection of related files. For example, 
the collection of inventory control files 
may form a library, and the libraries used 
by an organization are known as its data 


bank. 


library routine 


line printer 


linkage 


LN 


load 


load-and-go 


location 


logical unit 


logical file 


Bia wade 


program library. 


A high-speed output device that prints 
all the characters of a fine as a unit. 


Coding that connects two separately 
coded routines. 


Monitor command requesting automatic 
line numbering of a source program or a 
format program as the program is typed in. 


To enter data or programs into main core 
storage. 


An operating technique in which there 
are no stops between the loading and 
execution phases of a program, 


Any place where data may be stored. 


A technique for allocating mass storage 
facilities at run time. Up to 15 logical 
units may be assigned at system startup by 
the SYSGEN program. These areas and 
their assigned sizes are listed in the 
Systems Directory. At run time, when 
Monitor prints "MOUNT filename 71" 
the operator mounts the file and then 


types the logical device number. 


A collection of logical records independent 


of their physical environment. Portions of 
the same logical record may be located in 
different physical blocks. 
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magnetic core 


magnetic tape 


main memory 


manual input 


mass storage device 


master file 


match 


medium 


condition prevails. A commonly used 
programming technique in processing 
data records. 


The very fast direct-access storage media 
used as the main internal memory. Con- 
tains 2 characters per 12-bit word. It 

is the equivalent of a two character 
byte. An 8K core stores up to 16,000 
characters. 


A tape with a magnetic surface on which 
data can be stored by selective polari- 
zation of portions of the surface. 


Or main storage. The computer's 
primary internal storage. 


The entry of data by hand into a device 
at the time of processing. 


A device having large storage capacity, 
such as DECtapes and disks. 


A file that is either relatively permanent, 
or that is treated as an authority in a 
particular job. 


To check for identity between two or 
more fields. 


The material or configuration thereof on 
which data is recorded: for example, 
paper tape, cards, magnefic tape. 


merge 


mnemonic code 
Monitor 


name 


nest 


NO TRACE 


object program 
off line 
offline storage 


on line 


To combine records from two or more 
similarly ordered strings into another 
string that is arranged in the same order. 
The latter phases of a sort operation. 


To use one or more characters or symbols 
to depict a well-defined concept. 
Examples are TTY, RDR and DT4. 


COS 300 system control program that 
loads and runs other programs and per- 
forms many other useful tasks. 


The same rules apply to field names, 
filenames, and statement labels. A 
name must start with a letter and may 
use up to 6 significant characters, not 
including embedded spaces. A name 
identifies the place where a file, a 
field, or a statement is stored. 


To embed subroutines or loops or data in 
other subroutines or programs. 


Source language statement. See TRACE. 


A compiled program in binary form ready 


to be loaded and executed. 


Equipment or devices that are not under 
control of the computer. 


Storage not under control of the central 
processing unit. 


Equipment or services under control of 
the computer. 
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online storage 


operation 


outconnector 


output 


overlay 


pack 


parameter 


pass 


patch 


peripheral equipment 


Storage under control of the central 
processing unit. 


The event or specific action performed 
by a logic element. 


A connector that indicates a point at 
which a flowline is broken for a con- 
tinuation at another point. 


Data delivered by the computer to 
external storage. 


The technique of specifying several 
different record formats for the same 
data. Special rules apply. 


To compress data in a storage medium in 
such a way that the original data can be 
recovered. For example, when characters 
are stored on mass storage media, they are 
converted to a special 6-bit form, 
standard 8-bit ANSCII minus 237. Also, 
fields are packed on magnetic media with- 
out separating spaces. 


A variable that is given a constant value 
for.a specific purpose or process. 


One cycle of processing a body of data. 


To modify a routine or program in a 
rough or expedient way. 


Data processing equipment which is 
distinct from the computer. DECtapes, 
disks and card readers are examples. 


position 


precision 


problem definition 


PROC 


process function 


processing 


program 


In a string, any location that may be 
occupied by a character. 


The degree of discrimination with which 
a quantity is stated. For example, a 
three digit numeral discriminates among 
1000 possibilities. 6-place numerals are 
more precise than 4-place numerals. But 


properly computed 4-place numerals might 
be more accurate than improperly computed 


6-place numerals. 


A term associated with both the statement 
and solution phase of a problem and used 
to denote the transformations of data and 
the relationship of procedures, data, 
constraints, environments, etc. 


A data language statement that separates 
the Data Definition section from the 
Procedure section. This statement is re- 
quired in every DiBOL source program. 
It is a signal to the compiler that the 
Data Definition section has ended, and 
that the next data will be the start of the 
Procedure part of the program. li does 
not appear in the binary program. 


The process of executing a defined 
operation or group of operations. 


A term including any operation or com- 
bination of operations on data, where an 
operation is the execution of a defined 
action. 


See source program, binary program, 
object program, format program. 
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program library 


programmer 


pseudo-random numbers 


punched card 


punched tape 


random access 


range 


READ 


read only memory 


A Data Center's organized collection 
of computer programs, off line storage 
media, and related documentation. 


Person who designs, writes, and tests 
computer programs. 


A sequence of numbers, computed by an 
arithmetic process, that is satisfactorily 
random for a given purpose. Such a 
sequence may approximate a statistical 
distribution such as uniform, normal, or 
gaussian. 


A card punched with a pattern of holes 
to represent data. 


A tape on which a paitern of holes or 
cuts is used to represent data. 


Same as direct access. 


The difference between the highest and 
lowest values that a quantity or function 
may assume. For example, the range of 
decimal numbers that the system can 


process is -999,999, 999,999,999 to 
+999, 999,999,999, 999, 


A source language statement which inputs 
records on a direct access device. 


An equipment option used to store 
permanentiy wired instructions. 


real time 


record 


record (block) 


- Use of a computer to guide, control, or 


acquire data from a related physical 
process during the actual time that the 
physical process transpires. 


A collection of related data fields, and 
the basic logical unit in data files. A 
RECORD statement reserves core storage 
areas for DIBOL data language programs. 
See also fixed-length and variable-length 
records. Maximum record size is 510 
characters. 


The basic unit of physical data transfer 
used primarily to determine storage 
capacity. A block consists of up to 510 
characters. 


To determine the physical length in 

blocks of a data file, the user must add 
two additional characters for each record 
in the file, and one additional block of 
512 characters for each file (to store the 
file name). A file must contain an integral 
number of blocks. Thus if a user is 
planning to create a data file consisting 

of 500 records, containing 100 characters 


each; he must-add-500- times 2;-plus 512 


or a total of 1,512. This file will contain 
51,512 characters. To determine the 
number of blocks this file will occupy, 
divide by 512: the result is 102. 


The length in blocks of programs stored on 
the systems device is calculated by 
Monitor and printed in the System 
Directory in response to DIRECTORY 
commands, These programs wil! require 
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RETURN 


reverse direction flow 


ROM 


security 


segment 


sequential operation 


serial access” ~~ 


4 additional characters per line to store 
line numbers. 


A DECtape reel contains 737 blocks; an 
RKO8 disk cartridge contains 3240. 


After CALL, this statement terminates 
the subroutine and returns control to the 
statement following CALL. 


In Flowcharting, a flow in a direction 
other than left to right or top to bottom. 


See read only memory. 


Protection of data files. Only programs 
with both the proper filename and data 
definition can access a file. 


To divide a program or file into parts such 
that the program can be executed without 
the entire program being in internal storage 
at any one time. 


Performance of operations, such as 
record processing, one after the other. 


“~The process of getting data from or putting 


data into storage where the access time is 
dependent upon the location of the data 
most recently obtained or plaeed in 
storage. Most magnetic tapes are 
serially accessed, but DECtapes have 
fixed addresses, and programs have fast, 
direct access to their DECtape records. 


sign 


significant digit 


simulate 


SORT 


source program 


space fill 


special character 


START 


statement 


Positive numbers do not require a sign, 
but negative numbers are prefixed with 
the minus sign (-). 


A digit that is needed for a specific 
purpose, especially a digit that must be 
kept to preserve a certain accuracy or 
precision, Leading zeros are not 
significant. 


A computer program that represents the 
behavior of another system. An example 
would be a program which simuiates the 
behavior of a market when a new product 
is introduced. 


A utility program which resequences data 
records within a file into ascending or 
descending sequence. 


A program written in DIBOL data language. 
These musi be iransiated by the system 
compiler into DDS 300 machine language 
before use. 


To fill the remaining character positions 
in an alphanumeric field with space 


characters. 


A graphic character that is neither a 
letter, nor a digit, nor a space character. 


Optional source language statement at 
beginning of program. 


An instruction in a source program. 
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STOP 


string 


stripping 


| EIR ee lS HR 
suoscripts 


switch character 


symbol 


syntax 


system 


system device 


A source language statement which 
terminates a program run, returning 
control to Monitor. 


A linear sequence of characters. 


The use of a line across the upper part of 
a flowchart symbol to signify that a 
detailed representation of a function is 
located elsewhere in the same set of 


an array. This group or array is 

to by name. Each individual quantity in 
the array can be referred to in terms of 
its place by a unique subscript following 
the array name. 


A single letter specifier in a command. 
Often follows a slash terminating command. 


A representation of something by reason 
of relationship or convention. 


The rules governing the structure of a 
language. 


An organized collection of software and 
hardware components, documentation, 
and methods required to accomplish a 
specific objective. 


A mass storage area reserved for systems 
programs. This is always logical unit 0. 


Systems Directory 


tape drive 


terminal 


TRACE 


transaction file 


transmit 


utility program 


variable 


A list of systems programs on the systems 
device with logical device assignments 
and other useful information. 


A device that moves tape past a head. 
Synonymous with tape transport. 


A point in a system at which data can 
either enter or leave. 


A source language statement, helpful in 
debugging, which provides a record or 
program branches as a program is run. 
The NO TRACE statement disables the 
TRACE feature. 


A file containing relatively transient 

data to be processed in combination with 
a master file. For example, in a payroll 
application, a transaction file indicating 
hours worked might be processed with a 
master file containing employee name and 
rate of pay. Synonymous with detail file. 


To send data from one location and to 
receive the data at another location. 


A group of systems programs which perform ff 


common services, and require format 
programs. Examples are BUILD, SORT, 
PIP and PRINT. 


A quantity that can assume any of a given 
set of values. 
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variable-length record 


verify 


word 


WRITE 


XMIT 


zero fill 


A file in which the data records are not 
uniform in length. Specified by V in an 
INIT statement. Variable length records 
may be created by DIBOL source programs 
only, but cannot be processed by utility 
programs, and direct access to such 
records by systems programs is impossible. 


To determine whether a transcription of 
data has been accomplished accurately. 


A string of 12 binary bits, representing 
two characters. 


A source language statement which out- 
puts a record to a direct access device. 


A source language statement which out- 
puts or inputs a record. 


To fill the remaining character positions 
in a decimal field with zeros. 


HOW TO OBTAIN SOFTWARE INFORMATION 


Announcements for new and revised software, as well as programming 
notes, software problems, and documentation corrections, are published 
by Software Information Service in the following newsletters. 


DIGITAL Software News for the PDP-8 and PDP=-12 
DIGITAL Software News for the PDP-1l 
DIGITAL Software News for 18-bit Computers 


These newsletters contain information applicable to software available 
from DIGITAL'S Software Distribution Center. Articles in DIGITAL 
Software News update the cumulative Software Performance Summary which 
is included in each basic kit of system software for new computers. 
To assure that the monthly DIGITAL Software News is sent to the 
appropriate software contact at your installation, please check with 
the Software Specialist or Sales Engineer at your nearest DIGITAL 
office, 


Questions or problems concerning DIGITAL'S software should be reported 
to the Software Specialist. If no Software Specialist is available, 
please send a Software Performance Report form with details of the 
problems to: 


Digital Equipment Corporation 
Software Information Service 
Software Engineering and Services 
Maynard, Massachusetts 01754 


These forms, which are provided in the software kit, should be fully 
completed and accompanied by terminal output as well as listings or 
tapes of the user program to facilitate a complete investigation. An 
answer will be sent to the individual, and appropriate topics of 
general interest will be printed in the newsletter. 


Orders for new and revised software manuals, additional Software 
Performance Report forms, and software price lists should be directed 
to the nearest DIGITAL field office or representative. USA customers 
May order directly from the Software Distribution Center in Maynard. 
When ordering, include the code number and a brief description of the 
software requested. 


Digital Equipment Computer Users Society (DECUS) maintains a user 
library and publishes a catalog of programs as well as the DECUSCOPE 
magazine for its members and non-members who request it. For further 
information, please write to: 


Digital Equipment Corporation 
DECUS 

Software Engineering and Services 
Maynard, Massachusetts 01754 
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Digital Equipment Corporation maintains a continuous effort to improve 
the quality and usefulness of its publications. To dothis effectively 
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